Trække data fra database til drop-down box .
Hvordan kan jeg får data frem i formularfeltet isted for at brugerne selv tast ind. I nedstående kode data i recordset kan ikke vise frem. Hvorfor? Er der noget der kan hjælpe eller vis mig?<!-----#include file =\"../include/dbtools.asp\"--->
<!---#include file =\"../include/ProjectMenu.asp\"--->
<html>
<head>
<meta http-equiv=\"Content-Type\" content=\"text/html; charset=windows-1252\">
<meta name=\"GENERATOR\" content=\"Microsoft FrontPage 4.0\">
<meta name=\"ProgId\" content=\"FrontPage.Editor.Document\">
<title>Editing Project</title>
</head>
<body >
<%
dim strSql, strSql1, strProID, strProDesc, strProName, strCustID, buttom
strProID = request.form(\"fProjectID\")
strProDesc = request.form(\"fProjectDescription\")
strProName = request.form(\"fProjectName\")
strCustID= request.form(\"fCustomerID\")
buttom = request.form(\"fbuttom\")
\'------------------------------------------------------------------------------
\'--------The following code shows the form fields to be selected---------------
\'-----------------------------------------------------------------------------
startDatabase(\"../fpdb/ProjectManagement.mdb\")
strSql1 = \"select * from ProjectMenu where ProjectID= \'\" & strProID & \"\'\"
set rs = db.execute( strSql1)
%>
<h1> Rediger Projekt</h1>
<form action=\"<% Request.ServerVariables (\"SCRIPT_NAME\")%>\" method=post id=form1 name=form1>
<table border=\"1\" width=\"100%\">
<tr>
<td width=\"70%\">Vælge Projekt: <select size=\"1\" name=\"fProjectID\">
<%
do while not rs.eof
response.write \"<option value=\" & rs(\"ProjectID\") & \">\" & \"</option>\"
rs.moveNext
loop
%>
</select>
</td>
<td>
<input type=\"submit\" value=\"Rediger\" name=\"fbuttom\">
</td>
</tr>
</table>
</form>
<%
set rs = nothing
set db = nothing
\'-forbrede datatlgang-----------------------------------------------------
if strProID<>\"\" and strProName = \"\" then
startDatabase\"../fpdb/ProjectManagement.mdb\"
strSQL = \"select * from ProjectMenu where ProjectID=\'\" & strProID & \"\'\"
set rs = db.execute (strSQL)
%>
<form action=\"<% Request.ServerVariables (\"SCRIPT_NAME\")%>\" method=post id=form2 name=form2>
ProjektID: <% =strProID%>
<input type=\"hidden\" name=\"fProjectID\" value=\"<% =strProID%>\"><br>
KundeID:
<input type=\"text\" name=\"fcustomerID\" size=\"30\" value=\"<% =strCustID%>\"><br>
ProjektNavn:
<input type=\"text\" name=\"fProjectName\" size=\"20\" value=\"<% =strProName%>\"><br>
Projekt beskrivelse:
<input type=\"text\" name=\"fProjectDescription\" size=\"30\" value=\"<% =strProDesc%>\"><br>
<input type=\"submit\" value=\"Opdater\" name=\"fButtom\">
</form>
<%
else
startDatabase(\"../fpdb/ProjectManagement.mdb\")
strSQL = \"update ProjectMenu set \" & _
\"ProjectID = \'\" & strProID & \"\',\" & _
\"CustomerID = \'\" & strCustID & \"\',\" & _
\"ProjectName = \'\" & strProName & \"\',\" & _
\"ProjectDescription = \'\" & strProDesc & \"\' \" & _
\"where ProjectID=\'\" & strProID & \"\'\"
db.execute (strSQL)
end if
if buttom <> \"\" then
lukDatabase
end if
%>
</body>
</html>
