Forum

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)
%>

<%=onoma%>update

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)

 

Απάντηση από:Alex

η σύνδεση σου είναι με MySQL server ή με access?
Αν MySQL ή και access τότε πού είναι η σύνδεση με την database?

Απάντηση από:xristina

h basi einai me access kai einai sto idio fakelo me tis selides

Απάντηση από:Alex

τι αναφέρουν οι γραμμές στο update2.asp από 80 ώς 95
Έχεις εκεί το conection?

Απάντηση από:xristina

na soy steilo olo to arxeio sto e-mail soy ;
poio einai to e-mail soy;

Απάντηση από:Alex

http://tip.gr/dev/services/drill_name.asp

Απάντηση από:Alex

Στο dsn tei.dsn έχεις δώσει path DBQ=C:\INETPUB\WWWROOT\ATEIMES\EPDO\tei.mdb για την database.
Είναι η database σε αυτό το folder?
Έχει η database διακαιώματα read write και modify για όλους ή για τον IUSER_WEBSERVER ?

Επίσης βλέπω
mySql ="Select * from table1"
Set Con =Server.CreateObject( "ADODB.Connection")
Con.Open "FILEDSN=c:\dsn\tei.dsn"
Set rs = Con.Execute (mySql)
while not rs.EOF

Μπορείς να αλλάξεις το mySql από mySql σε SQL?

Απάντηση από:Xenofon

Protino na alaksis to MySql Se Sql mias kai se aftin tin metavliti perigrafeis (apo oti katalava to sqlstring) akoma kalitera einai na dimiourgiseis enan odbc dsn anti na xrisimopiois to datalink (FILEDSN=c:\dsn\tei.dsn)

Απάντηση από:xristina

to ekana kai auto alla den trexei

Απάντηση από:Alex

Τι έκανες;