Contact Form Problems....

[courtjester]

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.

[Webforumz Staff]

frmfrmName=Request.Form("frmName")