Guest_imported
New member
- Jan 1, 1970
- 0
Hi!
Does anybody know how to insert into microsoft access using wap and asp. I can query a database using the above, but Im having problems inserting simple numbers. Heres the code I have written to try to do it. It compiles with no errors, but it doesent do the insert. Id appreciate any help as Im on a tight deadline! thanks in advance, tom
tomack@altavista.net
<% Response.ContentType = "text/vnd.wap.wml" %>
<?xml version="1.0"?>
<!DOCTYPE wml PUBLIC "-//WAPFORUM//DTD WML 1.1//EN" "<wml>
<%
Dim conn, rs
Set conn = Server.CreateObject("ADODB.Connection"
Set rs = Server.CreateObject("ADODB.Recordset"
conn.open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("medical.mdb" & ";"
SearchStr = Request.QueryString("center_number"
if SearchStr="" then
%>
<card id="Fill_out" title="Fill out">
<p>
Please Enter the center number <input name="center_number" type="text" maxlength="8" />
<do type="accept" label="Insert">
<go href="medicalquestionnaire.asp#card2" method="post">
<postfield name="center_number" value="$center_number" />
</go>
</do>
</p>
</card>
<%
else
sqlInsert = "INSERT INTO medicaltable1 (center_number) " & "VALUES ('" & center_number & "')"
conn.Execute(SQLinsert)
%>
<% sqlQuery = "SELECT * FROM center_number WHERE center_number LIKE '%" & SearchSTR & "%'"
Set rs = conn.Execute(SQLquery)
%>
<card id="card2" title="Result">
<p>
<%
if rs.EOF then
Response.Write "<do type='accept' label='Back'>"
Response.Write " <go href='madical1.asp' method='get'>"
Response.Write " <postfield name='center_number value=' " & Session("center_number" & "' />"
Response.Write " </go>"
Response.Write " </do>"
Response.Write "<strong>Your center id has been entered</strong>"
Response.Write " <select name='center_number'>"
While not rs.EOF
Response.Write "<option value='" & rs("center_number" & " is your center number" & "</option>"
rs.Movenext
Wend
Response.Write "</select>"
else
Response.Write "Sorry! There was a problem with your entry"
end if
%>
</p>
</card>
<%
end if
%>
</wml>
Does anybody know how to insert into microsoft access using wap and asp. I can query a database using the above, but Im having problems inserting simple numbers. Heres the code I have written to try to do it. It compiles with no errors, but it doesent do the insert. Id appreciate any help as Im on a tight deadline! thanks in advance, tom
tomack@altavista.net
<% Response.ContentType = "text/vnd.wap.wml" %>
<?xml version="1.0"?>
<!DOCTYPE wml PUBLIC "-//WAPFORUM//DTD WML 1.1//EN" "<wml>
<%
Dim conn, rs
Set conn = Server.CreateObject("ADODB.Connection"
Set rs = Server.CreateObject("ADODB.Recordset"
conn.open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("medical.mdb"
& ";"SearchStr = Request.QueryString("center_number"
if SearchStr="" then
%>
<card id="Fill_out" title="Fill out">
<p>
Please Enter the center number <input name="center_number" type="text" maxlength="8" />
<do type="accept" label="Insert">
<go href="medicalquestionnaire.asp#card2" method="post">
<postfield name="center_number" value="$center_number" />
</go>
</do>
</p>
</card>
<%
else
sqlInsert = "INSERT INTO medicaltable1 (center_number) " & "VALUES ('" & center_number & "')"
conn.Execute(SQLinsert)
%>
<% sqlQuery = "SELECT * FROM center_number WHERE center_number LIKE '%" & SearchSTR & "%'"
Set rs = conn.Execute(SQLquery)
%>
<card id="card2" title="Result">
<p>
<%
if rs.EOF then
Response.Write "<do type='accept' label='Back'>"
Response.Write " <go href='madical1.asp' method='get'>"
Response.Write " <postfield name='center_number value=' " & Session("center_number"
& "' />"Response.Write " </go>"
Response.Write " </do>"
Response.Write "<strong>Your center id has been entered</strong>"
Response.Write " <select name='center_number'>"
While not rs.EOF
Response.Write "<option value='" & rs("center_number"
& " is your center number" & "</option>"rs.Movenext
Wend
Response.Write "</select>"
else
Response.Write "Sorry! There was a problem with your entry"
end if
%>
</p>
</card>
<%
end if
%>
</wml>