|
Subject:
|
English Query Problem is Driving me Nuts...
|
|
Posted By:
|
davidlars99
|
Post Date:
|
9/29/2004 1:29:17 PM
|
it doesn't show me any error messages, connection is right all rights are assign read/write/script access to the virtual directory and still it's not working, if you have ever done this in ASP please save me :)
<HTML>
<HEAD>
</HEAD>
<BODY>
<form name="f1" action="northwind.asp" method="post">
<input type="text" name="txt1" value="">
<br><br>
<input type="submit" name="sbmt" value="Search...">
</form>
<%
if request.servervariables("content_length")>0 then
Dim go, eqr, eqs
set eqs=server.createobject("Mseq.Session")
eqs.InitDomain("C:\Northwind\Northwind.eqd")
set cn=server.createobject("ADODB.Connection")
set rs=server.createobject("ADODB.Recordset")
cn.open "Driver=SQL Server;SERVER=(local);UID=sa;PWD=xxxxxx;DATABASE=Northwind"
set rs.ActiveConnection=cn
rs.CursorType=adOpenStatic
set eqr=eqs.ParseRequest(request("txt1"))
do until go=false
select case eqr.type
case nlResponseCommand
if eqr.commands(0).CmdID=nlCmdQuery then
response.write(eqr.Restatment)
rs.Open eqr.commands(0).SQL
response.write(0)
cmdExecute.Enabled=False
elseif eqr.commands(0).CmdID=nlCmdAnswer then
response.write(eqr.commands(0).Answer)
end if
go=True
case nlResponseError
go=True
case nlResponseUserClarify
go=False
end select
loop
end if
%>
</BODY>
</HTML>
I took this example from Robert Viera's SQL Server 2000 Programming
|
|
