Include fil.
HejsaJeg skal have smidt en dropdown menu ind i denne kode:
<!--#Include file="../Plus/title.asp"-->
<!--#Include file="../Moentsystem/moent.asp"-->
<html>
<head>
<title><%=titlen%></title>
<link rel="stylesheet" href="../Skrift/css.css">
</head>
<!--#include file="../Plus/beskyt.asp" -->
<!--#include file="../Plus/Tjek.asp" -->
<!-- #include file = "../Plus/Online.asp" -->
<!--#Include file="../Moentsystem/moenter.asp"-->
<%
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath ("../db/system.mdb")
Conn.Open DSN
Dim samletAntal
strSQL = "SELECT * FROM admin WHERE id=" & session("id")
Set rs = Conn.Execute(strSQL)
%>
<b>Rediger <%=rs("brugernavn")%>'s profil:</b>
<br>
<form method="post" action="rediger_godkend.asp">
<input type="hidden" name="id" size="50" value="<%=rs("id")%>">
<table border="0" width="290" cellspacing="1" cellpadding="0" height="145">
<tr>
<td width="126" height="38"><b>* Brugernavn:
</b>
</td>
<td width="162" height="38">
<table border="0" cellspacing="0" cellpadding="0" width="126" height="21">
<tr>
<td width="118" height="21">
<b>
<input type="text" name="brugernavn" maxlength="50" DISABLED size="23" value="<%=rs("brugernavn")%>" class="input"> </b></td>
</tr>
</table>
</td>
</tr>
<tr>
<td width="126" height="31"><b>* Kode:</b>
</td>
<td width="162" height="31">
<table border="0" cellspacing="0" cellpadding="0" width="132" height="21">
<tr>
<td width="118" height="21">
<b>
<input name="kode" maxlength="50" size="23" value="<%=rs("kode")%>" class="input" type="password"></b></td>
</tr>
</table>
</td>
</tr>
<tr>
<td width="126" height="39"><b>* Navn:
</b>
</td>
<td width="162" height="39">
<table border="0" cellspacing="0" cellpadding="0" width="145" height="21">
<tr>
<td width="134" height="21">
<b>
<input type="text" name="navn" maxlength="50" size="23" value="<%=rs("navn")%>" class="input"></b></td>
</tr>
</table>
</td>
</tr>
<tr>
<td width="126" height="35"><b>Alder:</b></td>
<td width="162" height="35">
<table border="0" cellspacing="0" cellpadding="0" width="132" height="21" style="font-size: 1pt">
<tr>
<td width="118" height="21">
<b>
<input type="text" name="alder" maxlength="50" size="23" value="<%=rs("alder")%>" class="input"></b></td>
</tr>
</table>
</tr>
</table>
<table width="289">
<td width="293">
<table border="0" width="280" cellspacing="1" cellpadding="0" height="39">
<tr>
<td width="125" height="37"><b>MSN:</b></td>
<td width="153" height="37">
<table border="0" cellspacing="0" cellpadding="0" width="132" height="21" style="font-size: 1pt">
<tr>
<td width="118" height="21">
<b>
<input type="text" name="msn" maxlength="50" size="23" value="<%=rs("msn")%>" class="input"></b></td>
</tr>
</table>
</td>
</tr>
</table>
<%
If rs("status") = "Admin" or rs("status") = "Super VIP" then
%>
<table border="0" width="281" cellspacing="1" cellpadding="0" height="39">
<tr>
<td width="125" height="37"><b>#Hjemmeside:</b></td>
<td width="154" height="37">
<table border="0" cellspacing="0" cellpadding="0" width="132" height="21" style="font-size: 1pt">
<tr>
<td width="118" height="21">
<b>
<input type="text" name="Hjemmeside" maxlength="50" size="23" value="<%=rs("hjemmeside")%>" class="input"></b></td>
</tr>
</table>
</td>
</tr>
</table>
<%
End if
%>
<p><b>Fritekst:
</b>
</p>
<table border="0" cellspacing="0" cellpadding="0" width="132" height="21" style="font-size: 1pt">
<tr>
<td width="118" height="21" bgcolor="white">
<b>
<textarea rows="4" name="info" cols="29" class="input"><%=rs("info")%></textarea>
</b>
</td>
</tr>
</table>
<b>
<input type="submit" value="Ret profil" class="button" style="background-color:#EB2D2E; border-color:#000000; border-style:solid;"></b>
</form><br>
<b>*Skal udfyldes.</b><br>
<%If rs("status") = "Admin" or rs("status") = "Super VIP" then response.write "<br><b>#Du behøves kun at skrive www.Hjemmesideadressen.dk</B>" end if%>
</table>
Hvor der så står "Stilling" også kan man vælge eks. "Online" eller "Ikke til stede" eller lign. men Dropdown menuen er altså i en fil der hedder Stilling.asp så det skal være i for af en include.
Det skal passe ind i det andet der. Jeg har forsøgt men forgæves.
