
May 18th, 2007, 03:54 PM
|
|
Registered User
|
|
Join Date: May 2007
Posts: 14
Time spent in forums: 1 h 23 m 7 sec
Reputation Power: 0
|
|
Wml & asp. SOS
I’M BAD IN ASP AND I’M BEING PUNISHED NOW
Please help me
I wrote a code that stores info during WML registration in an access database using asp.
The problem have to be in the code cause the mime is ok…
Wml file:
Code:
<% response.ContentType = "text/vnd.wap.wml" %>
<?xml version="1.0"?>
<!DOCTYPE wml PUBLIC "-//WAPFORUM//DTD WML 1.3//EN"
"(URL address blocked: See forum rules)">
<wml>
<card id="personalDetails" title="Register">
<p align="center"><b> Personal Details </b></p>
<p>
<b>FIRST Name:</b> <input name="varFName" type="text" />
<b>LAST Name:</b> <input name="varLName" type="text" />
<b>Gender:</b> <br/>
<select name="varGender">
<option value="Male">Male</option>
<option value="Female">Female</option>
</select>
</p>
<p align="center">
<do type="accept" label="Confirm Info">
<go href="logreg.asp" method="get">
<postfield name="F_Name" value="$(varFName)" />
<postfield name="L_Name" value="$(varLName)" />
<postfield name="G_ender" value="$(varGender)" />
</go>
</do>
</p>
</card>
</wml>
asp file:
Code:
<%@ Language = "VBScript"%><?xml version="1.0"?>
<!DOCTYPE wml PUBLIC "-//WAPFORUM//DTD WML 1.3//EN"
"(URL address blocked: See forum rules)">
<!--#INCLUDE FILE="inc_config.ASP"-->
<!--#INCLUDE FILE="INC_LNG.ASP"-->
<!--#INCLUDE FILE="INC_HEAD.ASP"-->
<wml>
<card id="login" title="W@P CHAT - Login">
<p align="center">
Thank you for entering your details. <br/>
Now you can login below!
</p>
<%
DIM CONNECT,DBCONN,SQL
CONNECT="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("../../database/USERMAN.MDB")
Set DBCONN=Server.CreateObject("ADODB.Connection")
DBCONN.OPEN CONNECT
DIM rsUserAdd
Set rsUserAdd = Server.CreateObject("ADODB.Recordset")
DIM FNAME,LNAME,GENDER
rsUserAdd.open "users", dbconn, 3, 3
FNAME = REQUEST.FORM("F_NAME")
LNAME = REQUEST.FORM("L_NAME")
GENDER = REQUEST.FORM("G_ENDER")
rsUserAdd.AddNew
rsUserAdd("FNAME") = FNAME
rsUserAdd("LNAME") = LNAME
rsUserAdd("GENDER") = GENDER
rsuserAdd.Update
rsUserAdd.CLOSE
SET rsUserAdd = NOTHING
%>
</p>
</card>
</wml>
|