ASP file in InterDev can't "Start" as VBP file in VisualBasic?

A

Alont

so how I can test asp code as I test VB project?
the function such as "start","step into",etc. all can't use when I
edit asp file, InterDev can't "Start" asp file?
the IE give me such a simple error report:
error type:
Microsoft VBScript ÔËÐÐʱ´íÎó (0x800A01C2)
/FindMerchant/search.asp,Line19
the line 19 is: rsResult=search(strKeyword)

<%
Set conn = Server.CreateObject("ADODB.Connection")
conn.open strPath
dim rsResult
set rsResult = Server.Createobject("ADODB.recordset")

rsResult=search(strKeyword)
%>
<%
Function Search(keyword) 'keywordÀïµÄ¹Ø¼ü×ÖÓÿոñ·Ö¿ª

Dim sqlQuest
Dim keywordGroup
dim rs
set rs= server.createobject("ADODB.Recordset")
keywordGroup = Split(keyword)
'°ÑkeywordÀïµÄ¹Ø¼ü×ÖÒÔ¿Õ¸ñ×ö·Ö¸î·û×°µ½Êý×éÀï,
keyword = "" '×¼±¸ÓÃÀ´×°¾­´¦ÀíºóµÄkeyword
Dim i

For i = 0 To UBound(keywordGroup)
'¸øÿ¸ö¹Ø¼ü×Ö¼ÓÉÏÌØÊâ·ûºÅÐγÉSQLÓï·¨
keywordGroup(i) = "'%" & keywordGroup(i) & "%'"
Next

For i = 0 To UBound(keywordGroup) '×éºÏ¾­´¦ÀíºóµÄ¹Ø¼ü×Ö
If keyword = "" Then
keyword = keywordGroup(i)
Else
keyword = keywordGroup(i) & "and" & keyword
End If
Next

sqlQuest = "Select Tel,Address From tableMerchant Where
Commodity LIKE " & keyword
rs.Open sqlQuest, conn
Dim a
Do While Not rs.EOF
a = a & rs.Fields.Item("Tel") & rs.Fields.Item("Address") &
";"
rs.MoveNext
Loop
rs.Close
Search =rs
conn.Close

End Function
%>

I'm sorry my english is so poor,
so forgive me if my word had make you uncomfortable.
I'll try my best to express my question correctly
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Members online

No members online now.

Forum statistics

Threads
473,744
Messages
2,569,482
Members
44,901
Latest member
Noble71S45

Latest Threads

Top