Hvordan opretter man online f.eks. en profil i en database!

Hvad er det konkret du har problemer med ?

kan du ikke lægge koden op på siden.... så man ved hvad man skal lave asp'en udfra.....

hvordan oprette profiler? altså bare oprettelse af en bruger hvor de vælger brugernavn og password eller noget andet?

Jo, da!
<%@ LANGUAGE="VBSCRIPT" %>
<html>
<head>
</head>
<body>
<table border="0" bgcolor="#E8a404" width="60%" align="center">
<td>
<%
Set ConnPasswords = Server.CreateObject("ADODB.Connection")
Set CmdEditnews = Server.CreateObject("ADODB.Recordset")
ConnPasswords.Open "DBQ=" & Server.MapPath("db/db.mdb") & ";Driver={Microsoft Access Driver (*.mdb)};UID=admin;PWD=;"
SQL = "SELECT * FROM Brugere Order by Fornavn Asc;"
%>
<center>
<form method="POST" action="save_bruger.asp">
  <input type="hidden" name="ID" value="<% =ID %>"><div align="center">
<table border="0" width="90%" cellspacing="1" cellpadding="1" background="../images/bg.jpg">
  <tr>
      <td width="30%"><font="Arial, Helvetica" size="2" color="#000000"><b>Fornavn:&nbsp;</b></font>
      <input type="text" name="Fornavn" size="10" value="<% =Fornavn %>"></td>
</tr>

<%While Not CmdListnews.EOF%>


<%
CmdListnews.MoveNext
Wend
%>
  <tr>
      <td align="center" colspan="3"><font face="Arial, Helvetica" size="2" color="#FFFFFF">
    <input type="image" src="save.jpg"></font></td>
    </tr>
  </table>

  </center></div>
</form>
<%
CmdEditnews.Close
Set CmdEditnews = Nothing
ConnPasswords.Close
Set ConnPasswords = Nothing

%>
%>
</td></tr>
</table>
</td></tr>
</table>
</body>
</html>

Du kan også prøve at læse dette. Det vil hjælpe dig rigtig meget.

http://www.html.dk/tutorials/asp/lektion19.asp
http://www.html.dk/tutorials/asp/lektion20.asp
http://www.html.dk/tutorials/asp/lektion21.asp
http://www.html.dk/tutorials/asp/lektion22.asp

Mvh. Jacob

Hvilken fejl får du?
Hvilken kode bruger du på 'save_bruger-asp'

Hejsa!
Jeg bruger nedenstående kode, som save_bruger.asp:

Mvh. Farhang




<%
Set ConnPasswords = Server.CreateObject("ADODB.Connection")
Set CmdEditnews = Server.CreateObject("ADODB.Recordset")
ConnPasswords.Open "DBQ=" & Server.MapPath("db/db.mdb") & ";Driver={Microsoft Access Driver (*.mdb)};UID=admin;PWD=;"
SQL = "SELECT * FROM Brugere WHERE (ID = " & ID & ")"
CmdEditnews.Open SQL, ConnPasswords, 1, 3
%>



<%
Fornavn = Request.Form("Fornavn")
if Fornavn="" THEN
CmdEditnews.Fields("Fornavn") = NULL
Else
CmdEditnews.Fields("Fornavn") = Fornavn
END IF
%>


<%
CmdEditnews.Update
CmdEditnews.Close
Set CmdEditnews = Nothing
ConnPasswords.Close
Set ConnPasswords = Nothing
%>


<!-- Delay Function -->

<%
Sub TLdelaySec(DelaySeconds)
SecCount = 0
Sec2 = 0
While SecCount < DelaySeconds + 1
Sec1 = Second(Time())
If Sec1 <> Sec2 Then
Sec2 = Second(Time())
SecCount = SecCount + 1
End If
Wend
End Sub
%>

<% TLdelaySec(2) %>

<!-- End Of Delay Function -->

<% Response.Redirect "show_bruger.asp" %>

Hvad med at prøve en normal INSERT sætning ??
måske er det nemmere.

Hvordan gør jeg det?