sindesi asp me basi

Από {xristina}

o kodikas mou eina:<%
h1 = TRIM(Request.Form("h1"))
onoma =TRIM(Request.Form("onoma"))
epwnymo =TRIM(Request.Form("epwnymo"))
idiothta =TRIM(Request.Form("idiothta"))
thlefwno =TRIM(Request.Form("thlefwno"))
fax =TRIM(Request.Form("fax"))
email =TRIM(Request.Form("email"))
mathimata =TRIM(Request.Form("mathimata"))
syntomo_viografiko=TRIM(Request.Form("syntomo_viografiko"))
plires_viografiko=TRIM(Request.Form("plires_viografiko"))
dhmosieyseis=TRIM(Request.Form("dhmosieyseis"))
ereynitikh_drastiriothta=TRIM(Request.Form("ereynitikh_drastiriothta"))
alla_endiaferonta=TRIM(Request.Form("alla_endiaferonta"))




'Assign Default Values
IF onoma="" THEN
onoma="?????"
END IF
IF epwnymo="" THEN
epwnymo="?????"
END IF
IF idiothta="" THEN
idiothta="?????"
END IF
IF thlefwno="" THEN
thlefwno="?????"
END IF
IF fax="" THEN
fax="?????"
END IF
IF email="" THEN
email="?????"
END IF
IF mathimata="" THEN
mathimata="?????"
END IF
IF syntomo_viografiko="" THEN
syntomo_viografiko="?????"
END IF
IF plires_viografiko="" THEN
plires_viografiko="?????"
END IF
IF dhmosieyseis="" THEN
dhmosieyseis="?????"
END IF
IF ereynitikh_drastiriothta="" THEN
ereynitikh_drastiriothta="?????"
END IF
IF alla_endiaferonta="" THEN
alla_endiaferonta="?????"
END IF
'Open Database Connection
Set Con = Server.CreateObject("ADODB.Connection")
Con.Open "FILEDSN=c:\dsn\tei.dsn"
%>








<%
'FUNCTION fixQuotes( sqlString)
' fixQuotes=REPLACE( sqlString," ' "," '' ")
'END FUNCTION
%>
<%
'Add New
sql="update table1 set onoma='" & onoma &"',"
sql = sql & "epwnymo='" & epwnymo & "',"
sql = sql & "idiothta='" & idiothta & "',"
sql = sql & "thlefwno='" & thlefwno &"',"
sql = sql & "fax='" & fax &"',"
sql = sql & "email='" & email &"',"
sql = sql & "mathimata='" & mathimata & "',"
sql = sql & "syntomo_viografiko='" & syntomo_viografiko & "',"
sql = sql & "plires_viografiko='" & plires_viografiko & "', "
sql = sql & "dhmosieyseis='" & dhmosieyseis & "' "
sql = sql & "ereynitikh_drastiriothta='" & ereynitikh_drastiriothta & "', "
sql = sql & "alla_endiaferonta='" &alla_endiaferonta & "', "
sql = sql & "where ID = " & h1
Set rs = Con.Execute (mySql)
%>

update


otan kano kataxorisi apo tin forma stin basi exo to minima:
Microsoft OLE DB Provider for ODBC Drivers error '80040e0c'

Command text was not set for the command object.

/ateimes/epdo/update2.asp, line 88
h line 88 einai :Set rs = Con.Execute (mySql)