Tjena.
Sitter här med lite SQL som krånglar för mig..
här kommer koden:
<%
Dim strNamn, strStad, strVikt, strLangd, strTrupp, strNummer, strSasonger
Dim strAlder, strStaendelangd, strYard, strBankpress, strSmeknamn, strMotto
Dim Connect, SQL
strNamn = trim(Request.Form("namn"))
strStad = trim(Request.Form("stad"))
strVikt = trim(Request.Form("vikt"))
strLangd = trim(Request.Form("langd"))
strTrupp = trim(Request.Form("trupp"))
strNummer = trim(Request.Form("nummer"))
strSasonger = trim(Request.Form("sasonger"))
strAlder = trim(Request.Form("alder"))
strStaendelangd = trim(Request.Form("staendelangd"))
strYard = trim(Request.Form("yard"))
strBankpress = trim(Request.Form("bankpress"))
strSmeknamn = trim(Request.Form("smeknamn"))
strMotto = trim(Request.Form("motto"))
Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source ="& Server.MapPath("databas.mdb")
SQL = "INSERT INTO spelare (namn, stad, vikt, langd, trupp, nummer, sasonger, alder, staendelangd, yard, bankpress, smeknamn, motto)"
SQL = SQL &" VALUES('"& strNamn &"', '"& strStad &"', '"& strVikt &"', '"& strLangd &"', '"& strTrupp &"', '"& strNummer &"', '"& strSasonger &"', "& strAlder &", '"& strStaendelangd &"', '"& strYard &"', '"& strBankpress &"', '"& strSmeknamn &"', '"& strMotto &"', )"
Connect.Execute(SQL)
Connect.Close
Set Connect = Nothing
Response.Write "Klart!"
%>
och här felet...
-----
Microsoft JET Database Engine error '80040e14'
Syntax error in INSERT INTO statement.
/asp/spelare/spelareinsert.asp, line 29
-----
m.v.h
Markus