Från formulär till databas?

3 svar · 214 visningar · startad av [AMD]Zmaster 24 maj 2002

[AMD]ZmasterMedlem sedan mars 20021 716 inlägg

Frågan24 maj 2002 14:25#1

Hur gör jag om jag vill att när någon har fyllt i formuläret och tryckt på "Skicka" så ska det som skrivits in i formuläret läggas in en databas?

Exempel på hur jag vill att formuläret ska se ut:
Ditt namn:
Din email:
Din hemsida:
Din rubrik på din artikel:
Din artikel-text:

Sen ska det skickas till en databas och lagras där,
jag har testat en sak, men eftersom jag håller på att lära mig ASP så var det inte rätt, men så här såg min kod ut:

<form method="POST" action="databasen.mdb">
<input type="text" name="namn" class="table"> Skriv ditt namn!
</form>

<%
Dim Namn
Namn = Request.Form("namn")

Set Con = Server.CreateObject("ADODB.Connection")
Con.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("databasen.mdb")&";"

SQLsats = "INSERT INTO Tabell1 Values('namn')"
Set RS = Con.Execute(SQLsats)
%>

Hur ska det vara?

mozillaMedlem sedan juli 20011 084 inlägg

24 maj 2002 14:30#2

till att börja med får det nog vara
SQLsats = "INSERT INTO Tabell1 Values('"&namn&"')"

[AMD]ZmasterMedlem sedan mars 20021 716 inlägg

24 maj 2002 14:34#3

Ok, då ser det ut så här:

<form method="POST" action="databasen.mdb">
<input type="text" name="namn" class="table"> Skriv ditt namn!
</form>

<%
Dim Namn
Namn = Request.Form("namn")

Set Con = Server.CreateObject("ADODB.Connection")
Con.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("databasen.mdb")&";"

SQLsats = "INSERT INTO Tabell1 Values('"&namn&"')"
Set RS = Con.Execute(SQLsats)
%>

och då kommer detta felmeddelande upp:
Kompileringsfel i Microsoft VBScript (0x800A0401)
Slut på programsats förväntas.
/test/guest.asp, line 13, column 17
SQLsats = INSERT INTO Tabell1 Values('"&namn&"')
----------------^

[AMD]ZmasterMedlem sedan mars 20021 716 inlägg

24 maj 2002 14:40#4

Löste det själv!

Koden blev:
<%
Set Databas = Server.CreateObject( "Adodb.Connection" )
Databas.Provider = "Microsoft.Jet.OLEDB.4.0"
MdbFilePath = Server.MapPath( "databasen.mdb" )
Databas.ConnectionString = "Data Source='" & MdbFilePath & "'"
Databas.open

namn = Request.Form( "namn" )

strSQL = "INSERT INTO tabell1 "
strSQL = strSQL & "( namn ) "
strSQL = strSQL & "VALUES( '" & namn & "' )"

Databas.Execute( strSQL )
%>

<form method="POST" action="tester.asp">
<input type="text" name="namn" class="table"> Skriv ditt namn!
</form>