Admin rediger funktion

hvad kan du ik finde ud af i det her ?

Det virker ikke :/

Ikke andet...
Er der ikke et eller der kan rettes så det virker? Jeg ved der er det!!!

kan du forklare hvad fejl den kommer med eller hvordan den ikke virker... vil hjælpe en med at vide hvad man skal lede efter at rette...

<%
Response.Buffer = True
Set id = Request.Querystring("id")
%>
<html>
<head>
<title>Rediger</title>
</head>
<body>
<%
If Request.Querystring("id") = Request("id") then

Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath ("com123.mdb")
Conn.Open DSN
Dim samletAntal

strSQL = "SELECT * FROM brugere WHERE id=" & rs("id")

Set rs = Conn.Execute(strSQL)

if not rs.eof
%>
<p><font face="Tahoma" size="2"><b>Rediger profil for <%=rs("brugernavn")%> med id #<% Request("id")%></b></font>

<form method="post" action="opdater.asp">
     
    <input type="text" name="id" size="50" value="<% Request("id")%>" style="font-family: tahoma; font-size: 10pt; border: 1 solid #000000">
    <table border="0" width="487" cellspacing="0" cellpadding="0">
      <tr>
        <td width="123"><font face="Tahoma" size="2"><b>Password:<font color="red"> *</font>
          &nbsp;</b></font></td>
        <td width="360">
    <font face="Tahoma" size="2"><b>
    <input name="password" maxlength="50" size="50" value="<%=rs("kode")%>" style="font-family: tahoma; font-size: 10pt; border: 1 solid #000000">
    </b></font>
        </td>
      </tr>
      <tr>
        <td width="123"><font face="Tahoma" size="2"><b>E-mail adresse:<font color="red"> *</font>
          </b></font>
        </td>
        <td width="360">
      <font face="Tahoma" size="2"><b>
      <input type="text" name="email" maxlength="50" size="50" value="<%=rs("mail")%>" style="font-family: tahoma; font-size: 10pt; border: 1 solid #000000">
      </b></font>
        </td>
      </tr>
      <tr>
        <td width="123"><font face="Tahoma" size="2"><b>ICQ:&nbsp;</b></font></td>
        <td width="360">
      <font face="Tahoma" size="2"><b>
      <input type="text" name="icq" maxlength="50" size="50" value="<%=rs("icq")%>" style="font-family: tahoma; font-size: 10pt; border: 1 solid #000000">
      </b></font>
        </td>
      </tr>
      <tr>
        <td width="123"><font face="Tahoma" size="2"><b>Hjemmeside:&nbsp;</b></font></td>
        <td width="360">
      <font face="Tahoma" size="2"><b>
      <input type="text" name="hjemmeside" maxlength="50" size="50" value="<%=rs("homepage")%>" style="font-family: tahoma; font-size: 10pt; border: 1 solid #000000">
      </b></font>
        </td>
      </tr>
      <tr>
        <td width="123"><font face="Tahoma" size="2"><b>Msn:</b></font></td>
        <td width="360">
      <font face="Tahoma" size="2"><b>
      <input type="text" name="msn" maxlength="50" size="50" value="<%=rs("msn")%>" style="font-family: tahoma; font-size: 10pt; border: 1 solid #000000">
      </b></font>
        </td>
      </tr>
      <tr>
        <td width="123"><font face="Tahoma" size="2"><b>Navn:&nbsp;</b></font></td>
        <td width="360">
      <font face="Tahoma" size="2"><b>
      <input type="text" name="navn" maxlength="50" size="50" value="<%=rs("navn")%>" style="font-family: tahoma; font-size: 10pt; border: 1 solid #000000">
      </b></font>
        </td>
      </tr>
      <tr>
        <td width="123"><font face="Tahoma" size="2"><b>Alder:&nbsp;</b></font></td>
        <td width="360">
      <font face="Tahoma" size="2"><b>
      <input type="text" name="alder" maxlength="2" size="50" value="<%=rs("alder")%>" style="font-family: tahoma; font-size: 10pt; border: 1 solid #000000">
      </b></font>
        </td>
      </tr>
      <tr>
        <td width="123"><font face="Tahoma" size="2"><b>Eyeball:&nbsp;</b></font></td>
        <td width="360">
      <font face="Tahoma" size="2"><b>
      <input type="text" name="eyeball" maxlength="50" size="50" value="<%=rs("eyeball")%>" style="font-family: tahoma; font-size: 10pt; border: 1 solid #000000">
      </b></font>
        </td>
      </tr>
    </table>
<p><font face="Tahoma" size="2"><b>Fritekst:<br>
      <textarea rows="8" name="fritxt" cols="53" style="font-family: tahoma; font-size: 10pt; border: 1 solid #000000"><%=rs("fritxt")%></textarea>
</b></font>
<p><font face="Tahoma" size="2"><b><br>
  <input type="submit" value="Opdater" style="font-family: tahoma; font-size: 10pt; background-color: #FFFFFF; border: 1 solid #000000">
  <input type="reset" value="Fortryd ændringer" style="font-family: tahoma; font-size: 10pt; background-color: #FFFFFF; border: 1 solid #000000"> 
</b></font> 
</form>
<font face="Tahoma" size="2"><b>
<font color="red">*</font>= Felt, der kræves udfyldt
<%
end if
Conn.Close
Set Conn = Nothing
%>
</b></font>
</body>
</html>

Der var desværre ikke noget af jeres der virkede. Jeg prøvede mig ligeså stille frem, og fik det til at virke, men tak for jeres hjælp ;)

hvad var der galt?

Kunne også godt tænke mig at vide svaret... Du har lukket 8 ud af 9 spørgsmål uden pointgivning.... Ikke at jeg beskylder dig for at snyde, men det virker lidt mystisk ;o)

/Anders

Sådan ser det rigtige ud:

<%
Response.Buffer = True
id = Request.Querystring("id")
%>
<html>
<head>
<title>Rediger</title>
</head>
<body>
<%

Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath ("com123.mdb")
Conn.Open DSN
Dim samletAntal

strSQL = "SELECT * FROM brugere WHERE id=" & Request("id")

Set rs = Conn.Execute(strSQL)

%>

<p><font face="Tahoma" size="2"><b>Rediger profil for <%=rs("brugernavn")%> med id #<%=rs("id") %></b></font>

<form method="post" action="adminopdater.asp">
     
<table border="0" cellspacing="0" cellpadding="0" width="487">
  <tr>
    <td width="123">
     
<font face="Tahoma" size="2"><b>
     
Id:</b></font></td>
    <td width="360"><font face="Tahoma" size="2"><b><input type="text" name="id" size="50" value="<%=rs("id") %>" style="font-family: tahoma; font-size: 10pt; border: 1 solid #000000">
      </b></font>
    </td>
  </tr>
</table>
    <table border="0" width="487" cellspacing="0" cellpadding="0">
      <tr>
        <td width="123"><font face="Tahoma" size="2"><b>Password:<font color="red"> *</font>
          &nbsp;</b></font></td>
        <td width="360">
    <font face="Tahoma" size="2"><b>
    <input name="password" maxlength="50" size="50" value="<%=rs("kode")%>" style="font-family: tahoma; font-size: 10pt; border: 1 solid #000000">
    </b></font>
        </td>
      </tr>
      <tr>
        <td width="123"><font face="Tahoma" size="2"><b>E-mail adresse:<font color="red"> *</font>
          </b></font>
        </td>
        <td width="360">
      <font face="Tahoma" size="2"><b>
      <input type="text" name="email" maxlength="50" size="50" value="<%=rs("mail")%>" style="font-family: tahoma; font-size: 10pt; border: 1 solid #000000">
      </b></font>
        </td>
      </tr>
      <tr>
        <td width="123"><font face="Tahoma" size="2"><b>ICQ:&nbsp;</b></font></td>
        <td width="360">
      <font face="Tahoma" size="2"><b>
      <input type="text" name="icq" maxlength="50" size="50" value="<%=rs("icq")%>" style="font-family: tahoma; font-size: 10pt; border: 1 solid #000000">
      </b></font>
        </td>
      </tr>
      <tr>
        <td width="123"><font face="Tahoma" size="2"><b>Hjemmeside:&nbsp;</b></font></td>
        <td width="360">
      <font face="Tahoma" size="2"><b>
      <input type="text" name="hjemmeside" maxlength="50" size="50" value="<%=rs("homepage")%>" style="font-family: tahoma; font-size: 10pt; border: 1 solid #000000">
      </b></font>
        </td>
      </tr>
      <tr>
        <td width="123"><font face="Tahoma" size="2"><b>Msn:</b></font></td>
        <td width="360">
      <font face="Tahoma" size="2"><b>
      <input type="text" name="msn" maxlength="50" size="50" value="<%=rs("msn")%>" style="font-family: tahoma; font-size: 10pt; border: 1 solid #000000">
      </b></font>
        </td>
      </tr>
      <tr>
        <td width="123"><font face="Tahoma" size="2"><b>Navn:&nbsp;</b></font></td>
        <td width="360">
      <font face="Tahoma" size="2"><b>
      <input type="text" name="navn" maxlength="50" size="50" value="<%=rs("navn")%>" style="font-family: tahoma; font-size: 10pt; border: 1 solid #000000">
      </b></font>
        </td>
      </tr>
      <tr>
        <td width="123"><font face="Tahoma" size="2"><b>Alder:&nbsp;</b></font></td>
        <td width="360">
      <font face="Tahoma" size="2"><b>
      <input type="text" name="alder" maxlength="2" size="50" value="<%=rs("alder")%>" style="font-family: tahoma; font-size: 10pt; border: 1 solid #000000">
      </b></font>
        </td>
      </tr>
      <tr>
        <td width="123"><font face="Tahoma" size="2"><b>Eyeball:&nbsp;</b></font></td>
        <td width="360">
      <font face="Tahoma" size="2"><b>
      <input type="text" name="eyeball" maxlength="50" size="50" value="<%=rs("eyeball")%>" style="font-family: tahoma; font-size: 10pt; border: 1 solid #000000">
      </b></font>
        </td>
      </tr>
    </table>
<p><font face="Tahoma" size="2"><b>Fritekst:<br>
      <textarea rows="8" name="fritxt" cols="53" style="font-family: tahoma; font-size: 10pt; border: 1 solid #000000"><%=rs("fritxt")%></textarea>
</b></font>
<p><font face="Tahoma" size="2"><b><br>
  <input type="submit" value="Opdater" style="font-family: tahoma; font-size: 10pt; background-color: #FFFFFF; border: 1 solid #000000">
  <input type="reset" value="Fortryd ændringer" style="font-family: tahoma; font-size: 10pt; background-color: #FFFFFF; border: 1 solid #000000"> 
</b></font> 
</form>
<font face="Tahoma" size="2"><b>
<font color="red">*</font>= Felt, der kræves udfyldt
<%
Conn.Close
Set Conn = Nothing
%>
</b></font>
</body>
</html>