Jag har skapat ett formulär i HTML och där har jag en textruta. När användaren skriver in något i textrutan och klickar på en knapp så vill jag att det värdet ska in i databasen. Hur gör jag? Hr är ett exempel som sköter inmatning, validering och spara till databas på samma sida.läsa från textruta till databas
Sv: läsa från textruta till databas
<code>
<html>
<head>
<title>Registrering</title>
</head>
<body>
<%
Function SQLText(Value)
If Len(Value) > 0 Then
SQLText = "'" & Replace(Value, "'", "''") & "'"
Else
SQLText = Null
End If
End Function
Dim firstname
Dim lastnamn
Dim email
Dim Error
firstname = Request.Form("firstname")
lastnamn = Request.Form("lastnamn")
email = Request.Form("email")
Select Case Request.Form("action")
Case "Spara"
If firstname = "" Then
Error = True
Response.Write "Du har inte angivit förnamn!<br>" & vbCrLf
End If
If lastname = "" Then
Error = True
Response.Write "Du har inte angivit efternamn!<br>" & vbCrLf
End If
If email = "" Then
Error = True
Response.Write "Du har inte angivit e-post!<br>" & vbCrLf
End If
If Error Then
RegForm
Else
Set con = Server.CreateObject("ADODB.Connection")
con.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=c:\somepath\myDb.mdb;"
con.Execute "INSERT INTO TabellNamn (FirstName, LastName, EMail) VALUES (" & SQLText(firstname) & ", " & SQLText(lastname) & ", " & SQLText(email) & ")"
con.Close
Set con = Nothing
End If
Case Else
RegForm
End Select
Sub RegForm
%>
<p>Registrering</p>
<form method="POST" action="" name="form1">
<table border="0" width="100%" >
<tr>
<td>Förnamn</td>
<td><input type="text" name="firstname" size="30" value="<%=firstname%>"></td>
</tr>
<tr>
<td>Efternamn</td>
<td><input type="text" name="lastname" size="30" value="<%=lastnamn%>"></td>
</tr>
<tr>
<td>E-post</td>
<td><input type="text" name="email" size="30" value="<%=email%>"></td>
</tr>
<tr>
<td colspan=2><input type="button" value="Spara" name="action"></td>
</tr>
</table>
</form>
<%
End Sub
%>
</body>
</html>
</code>