C
Charissa
I have a asp code, which use to extract code in xml form, but seem
like the data cannot be extract from the database. Could anyone tell
me the problem with these code?
<%@ Language=VBScript %>
<% Response.Buffer = True %>
<%
username=Request.Cookies("SecondHand")("username")
password=Request.Cookies("SecondHand")("password")
%>
<%
Response.ContentType = "text/xml"
Dim cnnNorthWind, rsReturn
Dim sSQLStatement
sSQLStatement = "SELECT * FROM members where password =
'"&Request.Cookies("SecondHand")("password")&"'"
On Error Resume Next
Set cnnNorthWind = Server.CreateObject("ADODB.Connection")
cnnNorthWind.ConnectionString = "DSN=db1"
cnnNorthWind.CursorLocation = 3
cnnNorthWind.Open
Set rsReturn = cnnNorthWind.Execute(sSQLStatement)
Set cnnNorthWind = Nothing
If Err.number <> 0 Then
Response.Write "<Error>" & vbNewLine
Response.Write vbTab & "<Description>" & Err.Description & _
"</Description>" & vbNewLine
Response.Write "</Error>" & vbNewLine
Response.End
End If
Response.Write ("<?xml version='1.0'
encoding='ISO-8859-1'?><?xml-stylesheet type='text/xsl'
href='member.xsl' version='1.0' encoding='ISO-8859-1'?> ") & vbNewLine
Response.Write "<members>" & vbNewLine
While Not rsReturn.EOF
Response.Write vbTab & vbTab & "<member_name>" &
rsReturn("member_name") & _
"</member_name>" & vbNewLine
Response.Write vbTab & vbTab & "<username>" & rsReturn("username") &
_
"</username>" & vbNewLine
Response.Write vbTab & vbTab & "<password>" & rsReturn("password") &
_
"</password>" & vbNewLine
Response.Write vbTab & vbTab & "<email>" & rsReturn("email") & _
"</email>" & vbNewLine
Response.Write vbTab & vbTab & "<contact_no>" &
rsReturn("contact_no") _
& "</contact_no>" & vbNewLine
Response.Write vbTab & vbTab & "<usertype>" & rsReturn("usertype") &
_
"</usertype>" & vbNewLine
Response.Flush
rsReturn.MoveNext
Wend
Response.Write "</members>"
Set rsReturn = Nothing
%>
like the data cannot be extract from the database. Could anyone tell
me the problem with these code?
<%@ Language=VBScript %>
<% Response.Buffer = True %>
<%
username=Request.Cookies("SecondHand")("username")
password=Request.Cookies("SecondHand")("password")
%>
<%
Response.ContentType = "text/xml"
Dim cnnNorthWind, rsReturn
Dim sSQLStatement
sSQLStatement = "SELECT * FROM members where password =
'"&Request.Cookies("SecondHand")("password")&"'"
On Error Resume Next
Set cnnNorthWind = Server.CreateObject("ADODB.Connection")
cnnNorthWind.ConnectionString = "DSN=db1"
cnnNorthWind.CursorLocation = 3
cnnNorthWind.Open
Set rsReturn = cnnNorthWind.Execute(sSQLStatement)
Set cnnNorthWind = Nothing
If Err.number <> 0 Then
Response.Write "<Error>" & vbNewLine
Response.Write vbTab & "<Description>" & Err.Description & _
"</Description>" & vbNewLine
Response.Write "</Error>" & vbNewLine
Response.End
End If
Response.Write ("<?xml version='1.0'
encoding='ISO-8859-1'?><?xml-stylesheet type='text/xsl'
href='member.xsl' version='1.0' encoding='ISO-8859-1'?> ") & vbNewLine
Response.Write "<members>" & vbNewLine
While Not rsReturn.EOF
Response.Write vbTab & vbTab & "<member_name>" &
rsReturn("member_name") & _
"</member_name>" & vbNewLine
Response.Write vbTab & vbTab & "<username>" & rsReturn("username") &
_
"</username>" & vbNewLine
Response.Write vbTab & vbTab & "<password>" & rsReturn("password") &
_
"</password>" & vbNewLine
Response.Write vbTab & vbTab & "<email>" & rsReturn("email") & _
"</email>" & vbNewLine
Response.Write vbTab & vbTab & "<contact_no>" &
rsReturn("contact_no") _
& "</contact_no>" & vbNewLine
Response.Write vbTab & vbTab & "<usertype>" & rsReturn("usertype") &
_
"</usertype>" & vbNewLine
Response.Flush
rsReturn.MoveNext
Wend
Response.Write "</members>"
Set rsReturn = Nothing
%>