Is this what you want? Looks a bit messy to me!
<%FirstName = request.Form("FirstName"

%>
<%Set Feedback = Server.CreateObject("ADODB.Connection"

Feedback.ConnectionTimeout = Session("Feedback_ConnectionTimeout"

Feedback.CommandTimeout = Session("Feedback_CommandTimeout"

Feedback.Open Session("Feedback_ConnectionString"

, Session("Feedback_RuntimeUserName"

, Session("Feedback_RuntimePassword"

Set cmdTemp = Server.CreateObject("ADODB.Command"

Set resultset = Server.CreateObject("ADODB.Recordset"

cmdTemp.CommandText = "INSERT INTO Feedback (FirstName, LastName, Site, Tel, EMail, MessageType, Subject, SubjectOther, Person, ContactRequested, Comments, RemoteName, RemoteUser) VALUES ('" & toDB_I(request.Form("FirstName"

) & "','" & toDB_I(request.Form("LastName"

) & "','" & toDB_I(request.Form("Site"

) & "','" & toDB_I(request.Form("Tel"

) & "','" & toDB_I(request.Form("EMail"

) & "','" & toDB_I(request.Form("MessageType"

) & "','" & toDB_I(request.Form("Subject"

) & "','" & toDB_I(request.Form("SubjectOther"

) & "','" & toDB_I(request.Form("Person"

) & "','" & toDB_I(request.Form("ContactRequested"

) & "','" & toDB_I(request.Form("Comments"

) & "','" & toDB_I(request.ServerVariables("REMOTE_HOST"

) & "','" & toDB_I(request.ServerVariables("REMOTE_ADDR"

) & "')"
cmdTemp.CommandType = 1
Set cmdTemp.ActiveConnection = Feedback
resultset.CacheSize = 25
resultset.Open cmdTemp, , 3, 1%>
<p align="left"> </p>
Thanks.