ständigt dessa nybörjare!!
Har ett input fält och en knapp, men jag fattar inte hur man skall göra så jag skickar med lite kod.

<td><tr><input type="text" name=adress size="40">
<input type="submit" value="Lägg till adress" id=submit
name=submit>
<%Dim Connect, SQLsats, RecSet, Values

Set Connect = Server.CreateObject("ADODB.connection")

Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" &Server.MapPath("Db\media.mdb")&";"
SQLsats = "INSERT INTO adresser (mail) "
VALUES ("adress")<vad skall jag lägga här
connect.close
set connect = nothing
%>

mvh Jocke

VALUES (Request.Form("adress"))

SQLsats = "INSERT INTO adresser (mail) " & _
"VALUES ('" request.form("adress") & "')"
connect.execute sqlsats,,128

Det fungerar inte. får upp följande

Microsoft VBScript compilation error '800a0401'

Expected end of statement

/Admin.asp, line 205

"VALUES ('" request.form("adress") & "')"
-------------^
Vad göra? har provat båda förslagen men det går inte. kommer upp en massa felmeddelande.

Det saknas ett &, ska alltså vara:

SQLsats = "INSERT INTO adresser (mail) " & _
"VALUES ('" & request.form("adress") & "')"

/Johan

Tackar nu fungerar det bättre fast adresserna fastnar inte i databasen.
sökvägen är rätt till kolumnen och den har skrivrättigheter. några förslag?

Så här ser det ut i sin helhet, men problemet är att den fyller en annan tabell med tomma kolumner. inga adresser alls. Tabellen den fyller i heter types. varför gör den det??

<form name=adress method=post>
<input type="text" name=adress value="Skriv in ny adress här" size="38">
<input type="submit" value="Lägg till adress" id=adress name=adress>
<%Dim Connect, SQLsats, RecSet, Values
Set Connect = Server.CreateObject("ADODB.connection")
Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" &Server.MapPath("Db\media.mdb")&";"
SQLsats = "INSERT INTO Adresser (mail) " & _
"VALUES ('" & request.form("adress") & "')"
connect.close
set connect = nothing %></form>

Vad jag kan se så kör du aldrig frågan.

Ta bort RecSet och Values på Dim raden. Lägg till:

Dim cmd

och lägg till följande före connect.Close raden:

Set cmd = Server.CreateObject("ADODB.Command")
Set cmd.ActiveConnection = Connect
cmd.CommandText = SQLSats
cmd.CommandType = 1 ' adCmdText
cmd.Execute

/Tommy

Tyvärr fungerar inte kommer upp

Microsoft OLE DB Provider for ODBC Drivers error '80004005'

[Microsoft][ODBC Microsoft Access Driver] Field 'Adresser.mail' cannot be a zero-length string.

/admin.asp, line 210

och det är
cmd.Execute
som ligger på den raden

Jocke

Gör "Response.Write SQlSats" för att se hur SQL kommandot blir.

Felmeddelandet tyder på att Request.Form("adress") resulterar i en tom sträng och tabellen i Access tillåter inte att den kolumnen har noll-längd.

Att felet uppstår på cmd.Execute är föga konstigt, det är då den SQL-satsen mot databasen.

/Tommy

Du måste ha en if-sats som gör att koden bara körs när du postar något till sidan och inte när du bara visar formuläret:

<code>
<form name=adress method=post>
<input type="text" name=adress value="Skriv in ny adress här" size="38">
<input type="submit" value="Lägg till adress" id=adress name=adress>
<%
If Len(request.form("adress"))>0 Then
Dim Connect, SQLsats, RecSet, Values
Set Connect = Server.CreateObject("ADODB.connection")
Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" &Server.MapPath("Db\media.mdb")&";"
SQLsats = "INSERT INTO Adresser (mail) " & _
"VALUES ('" & request.form("adress") & "')"
connect.close
set connect = nothing
End If
%></form>
</code>

/Johan

Fattar ingenting!!
fungerar fortfarande inte, lägger in tomma fält i en annan tabell fast i samma databas. Nu bli det inga felmeddelane. Har det någonting med att det ligger includefiler till en annan sida som sparar till samma databas?? har försökt med olika namn ifall det skulle finnas på include sidan så att denna form blir unik.
mvh Jocke