Søg
Avatar billede syntax_hh Nybegynder
03. november 2003 - 16:35 Der er 7 kommentarer og
1 løsning

Admin rediger funktion

Jeg har lavet et community, og nogle admin funktioner. Jeg kan bare ikke finde ud af dette her, adminrediger.asp :
<%
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)
%>
<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
<%
Conn.Close
Set Conn = Nothing
%>
</b></font>
</body>
</html>
Avatar billede dawin_dk Nybegynder
03. november 2003 - 16:38 #1
hvad kan du ik finde ud af i det her ?
Avatar billede syntax_hh Nybegynder
03. november 2003 - 16:39 #2
Det virker ikke :/

Ikke andet...
Er der ikke et eller der kan rettes så det virker? Jeg ved der er det!!!
Avatar billede dawin_dk Nybegynder
03. november 2003 - 16:46 #3
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...
Avatar billede a-torsten Nybegynder
03. november 2003 - 17:03 #4
<%
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>
Avatar billede syntax_hh Nybegynder
03. november 2003 - 17:57 #5
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 ;)
Avatar billede wilweb Nybegynder
03. november 2003 - 18:15 #6
hvad var der galt?
Avatar billede a-torsten Nybegynder
03. november 2003 - 18:32 #7
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
Avatar billede syntax_hh Nybegynder
03. november 2003 - 19:27 #8
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>
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Programmeringssprog kurser
Kurser inden for grundlæggende programmering
Se alle Programmeringssprog kurser

Flere spørgsmål fra ASP kategorien

Titel Indlæg Oprettet Seneste aktivitet
Jeg bakser med noget Database og If Then med ASP - hvad gør jeg galt? Af Peer i ASP 9 25/06/202622:20 29/06/202621:55
Tjek alle checkbox i form Af bsn i ASP 4 18/05/202601:57 19/05/202613:33
Lost focus Af bsn i ASP 1 07/11/202415:34 01/01/202514:58
ASP classic Af bsn i ASP 8 28/10/202423:11 30/10/202422:51
Classic - filer vist med sidste fil først Af bsn i ASP 5 23/05/202409:56 24/05/202400:02
Se alle spørgsmål i kategorien Opret spørgsmål

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Opret Log ind

Du kan også logge ind via nedenstående tjenester

Alle kategorier på Eksperten
IT-JOB
Seneste spørgsmål Seneste aktivitet
31/0810:26 Synkronisering af kalender mellem computer, android telefon og iPhone Af Strawberry i Andre onlineløsninger
31/0810:24 Kan Excel selv beregne alder? Af leahcim i Excel
30/0815:02 Gemme besked fra Facebook / Messenger Af lurup i Sociale medier
29/0820:17 Kan man kopiere en DVD og afspille den på * Linux Mint - Cinnamon - 22.1 - "Xia" * ? Af Ikke-ekspert i Linux
27/0821:03 Kan man få Word viewer gratis Af Strawberry i Word
White papers
Flere white papers »