ok, I am going to post both my pages...
- Code: Select all
<% Set connectionToDatabase=Server.CreateObject("ADODB.Connection")
connectionToDatabase.ConnectionTimeout=60
connectionToDatabase.Open "DSN=Mydatabase"
Set recordSet =Server.CreateObject("ADODB.Recordset")
recordSet.Open "SELECT * FROM Contact",connectionToDatabase, 1,2
Response.Write("<Table width='730'valign='top'>")
Do While Not recordSet.EOF
dim messageDel
messageDel=recordSet("frmName")
Response.Write("<tr>")
Response.Write("<td width='180'>")
Response.Write("<Font Color='#0099FF'>")
Response.Write("<Center>")
Response.Write(recordSet("Name"))
Response.Write("</Center>")
Response.Write("</td>")
Response.Write("</Font>")
Response.Write("<td width='180'>")
Response.Write("<Font Color='#0066FF'>")
Response.Write("<Center>")
Response.Write(recordSet("Email"))
Response.Write("</Center>")
Response.Write("</td>")
Response.Write("</Font>")
Response.Write("<td width='180'>")
Response.Write("<Font Color='#0033FF'>")
Response.Write("<Center>")
Response.Write(recordSet("MessType"))
Response.Write("</Center>")
Response.Write("</td>")
Response.Write("</Font>")
Response.Write("<td width='180'>")
Response.Write("<Font color='#FFFFFF'>")
Response.Write("<textarea name='textarea'>")
Response.Write(recordSet("Message"))
Response.Write("</textarea>")
Response.Write("</td>")
Response.Write("</Font>")
Response.Write("<td width='20'>")
Response.Write("<Font color='#FFFFFF'>")
Response.Write("<input name='frmName' type='checkbox' value='messageDel'>")
Response.Write(messageDel)
Response.Write("</td>")
Response.Write("</Font>")
recordSet.MoveNext
Loop
connectionToDatabase.Close
Set connectionToDatabase=Nothing
%>
- Code: Select all
<%
frmfrmName=Request.Form("frmName")
Set connectionToDatabase=Server.CreateObject("ADODB.Connection")
connectionToDatabase.ConnectionTimeout=60
connectionToDatabase.Open "DSN=Mydatabase"
sqlStatement="DELETE FROM Contact WHERE frmName=" &frmfrmName
Set recordSet=connectionToDatabase.Execute(sqlStatement)
connectionToDatabase.Close
Set connectionToDatabase=Nothing
%>
I get this error... (on the second code...) Too few parameters. Expected 1.
/delete.
asp, line 77
Anyone got any ideas? Ohh, and line 77 is Set recordset=connectionToDatabase.Execute(sqlStatemen t) Thanks guys.
Contact Form Problems....
Jun 10th, 2004, 21:09
Similar Threads
