Dubbel INSERT

Hej igen :P

Känner mig lagom tjatig men behöver hjälp!! Satte just igång med MySQL databaser till ASP och är minst sagt *confused*..

Här är alltså koden som jag vill ha fungerande:

<!-- #include file="adovbs.inc" -->
<%
Set Connect = Server.CreateObject("ADODB.Connection") 
Connect.Open "Driver={MySQL ODBC 3.51 Driver};server=localhost;uid=xxx;pwd=xxx;database=creative" 
Set RecSet = Server.CreateObject("ADODB.Recordset")

dim strsvarsID, struserID, strNamn, strRubrik, strMessage, strDatum, strIP
strsvarsID = Request.Form("svarsID")
struserID = Request.Form("userID")
strnamn = Request.Form("namn")
strrubrik = Request.Form("rubrik")
strmessage = Request.Form("message")
strIP = Request.ServerVariables("REMOTE_ADDR")
strdatum = Year(Now) &"-"& Month(Now) &"-"& Day(Now) &"&nbsp;"& Hour(Now) &":"& Minute(Now) &":"& Second(Now) 

sql = " insert into forum1(svarsID, userID, Namn, Rubrik, Message, Datum, IP)" &_
" "  & " VALUES (" &_
"'" & strsvarsID & "'," &_
"'" & struserID & "', " &_
"'" & strNamn & "', " &_
"'" & strRubrik & "', " &_
"'" & strMessage & "', " &_
"'" & strDatum & "', " &_
"'" & strIP & "') "
Connect.Execute sql,,128

dim strSvar
strsvar = Request.Form("svar") +1

sql = " insert into forum1(svar)" &_
" "  & " VALUES (" &_
"'" & strsvar & "') where id = " & request.form("svarsid") & " "
Connect.Execute sql,,128

Response.Redirect("../forumread.asp?forumread=" & Request.Querystring("forumread") & "")
%>

Jag vill alltså att det ska bli +1 i svar när jag lägger in inlägget. Det är till ett forum som sagt...

Tacksam för svar

MVH Jonas "Mellow" Stenberg :OO

Det är update du skall använda.i den andra frågan.

.. å jag är tyst...

fast iofs.. använder du dig av adovbs.inc?

Ah klart jag ska använda update :) hehe

nu till problemet, hur skriver jag:

SQL = "UPDATE forum1 SET svar = '" & _
Request.Form("svar") & "' WHERE ID = " & _
Request.Form("editID") & " "
Connect.Execute(SQL)

så det blir +1?

SQL = "UPDATE forum1 SET svar = svar + 1 " & _
" WHERE ID = " &  Request.Form("editID") 
Connect.Execute SQL,,128

ok, tack så hemskt mkt LarsG

Det funkar nu :)