Jag har börjat att göra en community men när jag ska läggatill användarna så blir det fel Testa med adOpenKeyset eller adOpenDynamic istället för adOpenStatic.Lägg till information i en databas
Databasen går att ladda ner här:
Jag har gjort så att man reggar sig i
REGISTER:ASP
<!-- #include file="adovbs.inc" -->
<html>
<head>
<LINK REL=stylesheet HREF="style.css" TYPE="text/css">
<title>Registrera användare</title>
</head>
<body>
<DIV align="center">
<table width="421" cellspacing="0">
<tr>
<td class="boxlooktop" align="center" width="473"><b>REGISTER</b>
</tr>
<tr>
<td class="boxlook" valign="middle" width="473">
<table width="417" cellspacing="0">
<tr>
<td width="218">
<form method="post" action="add_member.asp">
<p align="left">
<input type="text" name="Fname" value=""> Name<br>
<input type="text" name="Alder" value=""> Age<br>
<input type="text" name="Password1" value=""> Password<br>
<input type="text" name="Sex" value=""> Sex<br>
<input type="text" name="Land" value=""> Country<br>
<input type="text" name="Hemsida" value=""> Homepage<br>
<td width="191">
<input type="text" name="Ename" value=""> Lastname<br>
<input type="text" name="Username" value=""> Username<br>
<input type="text" name="Password2" value=""> Password2<br>
<input type="text" name="Email" value=""> E-mail<br>
<input type="text" name="Ort" value=""> State<br>
<input type="text" name="Bild" value=""> Picture<br>
</tr>
<tr>
<td width="413" colspan="2" valign="middle">
<p align="center">More:
</tr>
<tr>
<td width="413" colspan="2" valign="middle">
<p align="center">
<textarea name="Annat" cols="49" rows="3"></textarea><br>
<input type="submit" value="Register">
<input type="reset" value="Empty"><br>
</form>
Back
</tr>
</table>
</tr>
</table>
</DIV>
</body>
</html>
------------------------------------------------------------------------------
ADD_MEMBER:ASP
<html>
<!-- #include file="adovbs.inc" -->
<% Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("db/db.mdb")
Set RecSet = Server.CreateObject("ADODB.Recordset")
Addera = "SELECT * FROM tblUsers"
RecSet.Open Addera, Connect, adOpenStatic, adLockOptimistic
RecSet.AddNew
RecSet("Fnamn") = Request.Form("Fname")
RecSet("Lnamn") = Request.Form("Ename")
RecSet("Alder") = Request.Form("Alder")
RecSet("Username") = Request.Form("Username")
RecSet("Password1") = Request.Form("Password1")
RecSet("Password2") = Request.Form("Password2")
RecSet("Sex") = Request.Form("Sex")
RecSet("Email") = Request.Form("Email")
RecSet("Land") = Request.Form("Land")
RecSet("Ort") = Request.Form("Ort")
RecSet("Hemsida") = Request.Form("Hemsida")
RecSet("Bild") = Request.Form("Bild")
RecSet("Annat") = Request.Form("Annat")
RecSet.Update
RecSet.Close
Connect.Close %>Sv: Lägg till information i en databas
Eller använd dig av en SQL Insert sats.