> Der findes en ganske god toturial på html.dk der indeholder eksempler både
> på at arbejde med forms, og lagring af data i databaser. Du skal have fat
i
> lektionerne 11 samt 18 til 22.
>
> Hvis du her støder på nogle konkrete problemer kan du altid skrive igen.
>
>
http://www.html.dk/tutorials/asp/
>
>
> Chrisser
>
>
Hej Chrisser
Tak for forsøget, men efter at have gransket i eksemplerne, har jeg fået
genopfrisket teknikken omkring videreførelse af en enkelt værdi til en ny
side. Men hvorledes viderebringes flere variable til næste side, og ikke
mindst, hvordan læses værdien af et valg i en dropdownliste etc.
Jeg vedlægger et eksempel hentet på nettet:
<%
'***************************************************************************
********
'Subroutine for droplist box
'
'PURPOSE: Reusable code to be called for placement of droplist box
' in a form or page
'
'PARAMETERS:
'strSQL = Defines SQL statement
'strFieldName = Defines field name in database table
'strDefault = Defines default value in droplist
'StrBoxName = Defines name of droplistbox
'strBoxTitle = Defines the title shown next to droplist box on screen
'strConn = Defines the database connection string
'***************************************************************************
********
Sub Droplist(strSQL,strFieldName,strDefault,StrBoxName,strBoxTitle,strConn)
'Set Cursor
'-------------------------------------------------------------------------
Const adOpenStatic=3
' create the recordset, open it, sort, and move to first record
'-------------------------------------------------------------------------
Set rs = Server.CreateObject ("ADODB.Recordset")
rs.Open strSQL, strConn, adOpenStatic
rs.movefirst
'Ouput result to droplist box
'-------------------------------------------------------------------------
%>
<%=strBoxTitle%>
<SELECT Name = <%=StrBoxName%> SIZE="1">
<OPTION SELECTED> <%=strDefault%> </OPTION>
<%do until rs.EOF%>
<OPTION> <%=rs(strFieldName)%> </OPTION>
<%rs.movenext
loop%>
</Select>
<%
'Close and clean up
'-------------------------------------------------------------------------
rs.close
set rs=nothing
End sub
%>
<HTML>
<HEAD>
<TITLE>Droplist Box Examples</TITLE>
<META name="description" content="">
<META name="keywords" content="">
<META name="generator" content="VisualN++">
</HEAD>
<BODY BGCOLOR="#FFFFFF" TEXT="#000000" LINK="#0000FF" VLINK="#800080">
<CENTER>
<H2>Calling A Droplist Box Subroutine</H2>
<H3>For a form with multiple droplists, consider using a reusable
subroutine</H3>
<HR>
<FORM name="userfrm" action="test2.asp" method = "post" >
<TABLE border=0 bgcolor="#ffffff" width=100%><TR>
<TD align="left" width=35% valign="top" >
<%
strSQL = "SELECT orders.[CustomerID] FROM orders ORDER BY orders.[orderid] "
strFieldName = "CustomerID"
strDefault = "default value"
StrBoxName = "CUST"
strBoxTitle = "<B>title: </B>"
strConn = "DRIVER={Microsoft Access Driver (*.mdb)}; pwd=; DBQ="&
Server.MapPath("nwind.mdb")
Response.write ("Droplist box No. 1" & "<BR>")
Call Droplist(strSQL,strFieldName,strDefault,StrBoxName,strBoxTitle,strConn)
%>
<%
Dim Laes
laes = request("CUST")
%>
<BR>
<BR>
<HR>
<%
strSQL = "SELECT orders.[orderid] FROM orders ORDER BY orders.[orderid] "
strFieldName = "orderid"
strDefault = "default value"
StrBoxName = "ORDERS"
strBoxTitle = "<B>title: </B>"
strConn = "DRIVER={Microsoft Access Driver (*.mdb)}; pwd=; DBQ="&
Server.MapPath("nwind.mdb")
Response.write ("Droplist box No.2" & "<BR>")
Call Droplist(strSQL,strFieldName,strDefault,StrBoxName,strBoxTitle,strConn)
%>
<p><strong>Der er valgt: </strong><%= laes %>
</TD></TR></Table></Form>
</BODY>
</HTML>
Eksemplet virker perfekt, og man kan vælge i listerne, men jeg fatter endnu
ikke, hvor jeg kan fange min "laes", og bringe den videre, sammen med andre
informationer.
Er jeg miljøskadet af noget gammelt VB, og misforstår tankegangen i ASP?
hilsen Ivan D-J