Gaski
2000-08-20, 07:03
Har lite problem med följande kod:
<%
Response.ContentType = "text/vnd.wap.wml"
Dim SQLquery
Dim rsNewUser
Dim strUser
Dim strPassword
strUser = request("newuser")
strPassword = request("psw")
%>
<?xml version="1.0"?>
<!DOCTYPE wml PUBLIC "-//WAPFORUM//DTD WML 1.1//EN" "http://www.wapforum.org/DTD/wml_1.1.xml">
<wml>
<%
SQLquery = "SELECT [user_id] FROM user"
set rsNewUser = conn.Execute(SQLquery)
Do While Not rsNewUser.EOF
If rsNewUser("user_id") = strUser Then
response.write("<card id='Userexist' title='" & strUser & " already exist'>")
response.write("<p><small>Username does already exist.<br/>Please choose another one <a href='index.wml#newuser'>here</a>.")
response.write("</small></p></card>")
Else
rsNewUser.MoveNext
End if
Loop
SQLquery = "INSERT INTO user (user_id, password) VALUES ('" & strUser & "', "' & strPassword & "')"
set rsNewUser = conn.Execute(SQLquery)
%>
När jag kör denna kod fryser WinWap, vad är fel?
conn.asp är det inte fel på!
------------------
Gaski: Viktig IT-profil!!!
<%
Response.ContentType = "text/vnd.wap.wml"
Dim SQLquery
Dim rsNewUser
Dim strUser
Dim strPassword
strUser = request("newuser")
strPassword = request("psw")
%>
<?xml version="1.0"?>
<!DOCTYPE wml PUBLIC "-//WAPFORUM//DTD WML 1.1//EN" "http://www.wapforum.org/DTD/wml_1.1.xml">
<wml>
<%
SQLquery = "SELECT [user_id] FROM user"
set rsNewUser = conn.Execute(SQLquery)
Do While Not rsNewUser.EOF
If rsNewUser("user_id") = strUser Then
response.write("<card id='Userexist' title='" & strUser & " already exist'>")
response.write("<p><small>Username does already exist.<br/>Please choose another one <a href='index.wml#newuser'>here</a>.")
response.write("</small></p></card>")
Else
rsNewUser.MoveNext
End if
Loop
SQLquery = "INSERT INTO user (user_id, password) VALUES ('" & strUser & "', "' & strPassword & "')"
set rsNewUser = conn.Execute(SQLquery)
%>
När jag kör denna kod fryser WinWap, vad är fel?
conn.asp är det inte fel på!
------------------
Gaski: Viktig IT-profil!!!