Create????
Jeg har et script, som virker fint. Så pludselig virker det ikke overhovedet, hvad er fejlen?Microsoft OLE DB Provider for ODBC Drivers fejl \'80040e14\'
[Microsoft][ODBC Microsoft Access-driver] Der er en syntaksfejl i feltdefinitionen.
/min frames/Opretny/Data2.asp, linje 94
Her er scriptet:
<%
\'*************************************************************************************************
\'Variabler
\'*************************************************************************************************
Brugernavn = Request.Form (\"Brugernavn\")
Kodeord = Request.Form (\"Kodeord\")
Gentag_Kodeord = Request.Form (\"Gentag_kodeord\")
Email = Request.Form (\"Email\")
Musikstil = Request.Form (\"Musikstil\")
Fulde_navn = Request.Form (\"Fulde_navn\")
Postnummer = Request.Form (\"Postnummer\")
Mp3 = Request.Form (\"Mp3\")
Oprettet = date
\'*************************************************************************************************
\'Chekker koden
\'*************************************************************************************************
If Kodeord = Gentag_Kodeord then
\'*************************************************************************************************
\'Opretter tabellen
\'*************************************************************************************************
Set Conn = Server.CreateObject(\"ADODB.Connection\")
DSN = \"DRIVER={Microsoft Access Driver (*.mdb)}; \"
DSN = DSN & \"DBQ=\" & Server.MapPath (\"../system/xxopret.mdb\")
Conn.Open DSN
SQL = \"CREATE TABLE \" & Brugernavn & \"(Brugernavn varchar, Kode varchar, Email varchar, Navn varchar, Postnummer varchar)\"
Conn.Execute(SQL)
\' Luk databaseforbindelse
Conn.Close
Set Conn = Nothing
\'*************************************************************************************************
\'Indsætter en værdi i xxopret
\'*************************************************************************************************
Set Conn = Server.CreateObject(\"ADODB.Connection\")
DSN = \"DRIVER={Microsoft Access Driver (*.mdb)}; \"
DSN = DSN & \"DBQ=\" & Server.MapPath (\"../system/xxopret.mdb\")
Conn.Open DSN
strSQL = \"Insert into \" & Brugernavn & \"(Brugernavn, Kode, Email, Navn, Postnummer) values(\'e\',\'e\',\'e\',\'e\',\'e\')\"
Conn.Execute(strSQL)
Conn.Close
Set Conn = Nothing
\'*************************************************************************************************
\'Opdater værdierne i xxopret
\'*************************************************************************************************
Set Conn = Server.CreateObject(\"ADODB.Connection\")
DSN = \"DRIVER={Microsoft Access Driver (*.mdb)}; \"
DSN = DSN & \"DBQ=\" & Server.MapPath (\"../system/xxopret.mdb\")
Conn.Open DSN
opdSQL = \"Update \"& Brugernavn &\" set \"
opdSQL = opdSQL & \"Brugernavn=\'\" & Brugernavn & \"\', \"
opdSQL = opdSQL & \"Kode=\'\" & Kodeord & \"\', \"
opdSQL = opdSQL & \"Email=\'\" & Email & \"\', \"
opdSQL = opdSQL & \"navn=\'\" & Fulde_navn & \"\', \"
opdSQL = opdSQL & \"Postnummer=\'\" & Postnummer & \"\' \"
\' SQL sætning eksekveres
Conn.Execute(opdSQL)
\' Luk databaseforbindelse
Conn.Close
Set Conn = Nothing
\'*************************************************************************************************
\'Skriver til xxBands. Navn, dato, mp3, musikstil.
\'*************************************************************************************************
\'skriv til xxBands.
Set Conn = Server.CreateObject(\"ADODB.Connection\")
DSN = \"DRIVER={Microsoft Access Driver (*.mdb)};\"
DSN = DSN & \"DBQ=\" & Server.MapPath (\"../system/xxBands.mdb\")
Conn.Open DSN
skrSQL = \"Insert into Bands (Bandnavn, Oprettet, Mp3, Musikstil) values(\'\" & Brugernavn & \"\',\'\" & date() & \"\',\'\" & Mp3 & \"\',\'\" & Musikstil & \"\')\"
Conn.Execute(skrSQL)
Conn.Close
Set Conn = Nothing
\'*************************************************************************************************
\'Opretter Tabel til præsentationsside.
\'*************************************************************************************************
Set Conn = Server.CreateObject(\"ADODB.Connection\")
DSN = \"DRIVER={Microsoft Access Driver (*.mdb)}; \"
DSN = DSN & \"DBQ=\" & Server.MapPath (\"../Ret/Bandinfo.mdb\")
Conn.Open DSN
oprSQL = \"CREATE TABLE \" & Brugernavn & \"(Bandnavn varchar, Skrifttype varchar, Overskrift varchar, Justering varchar, Storrelse varchar, Farve varchar, Tekst varchar, Storrelse_Tekst varchar, Justering_Tekst varchar, Billede varchar, Billede_Justering, Mp3_1 varchar, Navn_1 varchar, Mp3_2 varchar, Navn_2 varchar, Mp3_3 varchar, Navn_3 varchar, Mp3_4 varchar, Navn_4 varchar, Mp3_5 varchar, Navn_5 varchar)\"
Conn.Execute(oprSQL)
\' Luk databaseforbindelse
Conn.Close
Set Conn = Nothing
\'*************************************************************************************************
\'Skriver default.
\'*************************************************************************************************
Set Conn = Server.CreateObject(\"ADODB.Connection\")
DSN = \"DRIVER={Microsoft Access Driver (*.mdb)}; \"
DSN = DSN & \"DBQ=\" & Server.MapPath (\"../Ret/Bandinfo.mdb\")
Conn.Open DSN
defaultSQL = \"Insert into \" & Brugernavn & \"(Bandnavn, Skrifttype, Overskrift, Justering, Storrelse, Farve, Tekst, Storrelse_Tekst, Justering_Tekst, Billede, Billede_Justering, Mp3_1, Navn_1, Mp3_2, Navn_2, Mp3_3, Navn_3, Mp3_4, Navn_4, Mp3_5, Navn_5) values(\'\" & Brugernavn & \"\', \'Impact\', \'\" & Brugernavn & \"\', \'center\', \'5\', \'#F68C00\', \'Der er ikke blevet skrevet noget endnu.\', \'3\', \'center\', \'Billede\', \'left\', \'Mp3_1\', \'Navn_1\', \'Mp3_2\', \'Navn_2\', \'Mp3_3\', \'Navn_3\', \'Mp3_4\', \'Navn_4\', \'Mp3_5\', \'Navn_5\')\"
Conn.Execute(defaultSQL)
Conn.Close
Set Conn = Nothing
\'*************************************************************************************************
\'Slutter af
\'*************************************************************************************************
else
Response.redirect (\"opret_ny2kode.asp\")
end If
response.redirect (\"opret_ny3.asp\")
%>
