05. november 2005 - 09:53
Der er
9 kommentarer og 1 løsning
Rulleliste poper op i toppen af siden!
Jeg har en comboboks som jeg vil indsætte på siden lige før feltet brancheerfaring. Men rullelisten/combo bliver hver gang vist øverst på siden. Jeg har søgt men har ikke kunnet finde ud af hvad der skal til for at rullelisten oprettes det rigtige sted på siden. mvh Flemming Her er den sidste del af min kode: <tr> <td><font face="Arial">Pris:</font></td> <td><font face="Arial"><input type='text' name='pris' size='30'></font></td> </tr> <tr> <td><font face="Arial">Omsætning:</font></td> <td><font face="Arial"><input type='text' name='omsaetning' size='30'></font></td> </tr> <tr> <td><font face="Arial">Egenkapital:</font></td> <td><font face="Arial"><input type='text' name='egenkapital' size='30'></font></td> </tr> <tr> <td colspan='2'><font face="Arial"> </font></td> </tr> <form> <% Set Conn = Server.CreateObject("ADODB.Connection") DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; " DSN = DSN & "DBQ=" & Server.MapPath("fpdb/fhcrm.mdb") Conn.Open DSN strSQL = "SELECT * from brancher order by branche" Set rs = conn.Execute(strSQL) Response.Write "<select name=dropdown size=1>" Do While Not rs.EOF Response.Write "<option value=""" & rs("brancheID") & """>"& rs("branche") & "</option>" rs.MoveNext Loop Response.Write "</select>" Conn.Close Set Conn = Nothing %> </form> <tr> <td valign='top'><font face="Arial">Brancheerfaring:</font></td> <td><font face="Arial"><textarea cols='25' rows='3' name='brancheerfaring'></textarea></font></td> </tr> <tr> <td valign='top'><font face="Arial">Karriereforløb:</font></td> <td><font face="Arial"><textarea cols='25' rows='3' name='karriereforloeb'></textarea></font></td> </tr> <tr> <td valign='top'><font face="Arial">Geografisk område:</font></td> <td><font face="Arial"><input type='text' name='geografisk_omraade' size='30'></font></td> </tr> <tr> <td valign='top'><font face="Arial">Henvendelse/Spørgsmål:</font></td> <td><font face="Arial"><textarea cols='25' rows='8' name='tekst'></textarea></font></td> </tr> <tr> <td><font face="Arial"> </font></td> <td><font face="Arial"><input type='submit' name='submit' value='Send'></font></td> </tr> </table> </form> </body> </html>
Annonceindlæg tema
Offentlig digitalisering
Fra effektivisering til digital suverænitet. Hvordan skaber det offentlige en digital fremtid med AI, sikkerhed og kontrol i centrum?
05. november 2005 - 10:12
#1
Hvis jeg var dig, ville jeg træde ud af VB-scripting og lave HTML-tags, hvor de hører hjemme: <form> <% Set Conn = Server.CreateObject("ADODB.Connection") DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; " DSN = DSN & "DBQ=" & Server.MapPath("fpdb/fhcrm.mdb") Conn.Open DSN strSQL = "SELECT * from brancher order by branche" Set rs = conn.Execute(strSQL) %> <select name="dropdown" size="1"> <% Do While Not rs.EOF %> <option value="<%=rs("brancheID")%>" "<%=rs("branche")%>"></option> <% rs.MoveNext Loop %> </select> <% Conn.Close Set Conn = Nothing %> </form>
05. november 2005 - 10:14
#2
Lidt sjusket, men du kan nok se meningen. <form> <% Set Conn = Server.CreateObject("ADODB.Connection") DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; " DSN = DSN & "DBQ=" & Server.MapPath("fpdb/fhcrm.mdb") Conn.Open DSN strSQL = "SELECT * from brancher order by branche" Set rs = conn.Execute(strSQL) %> <select name="dropdown" size="1"> <% Do While Not rs.EOF %> <option value="<%=rs("brancheID")%>" "<%=rs("branche")%>"></option> <% rs.MoveNext Loop %> </select> <% Conn.Close Set Conn = Nothing %> </form>
05. november 2005 - 10:22
#3
Hele tabellen MED dine HTML3-ting:) <form> <table> <tr> <td><font face="Arial">Pris:</font></td> <td><font face="Arial"><input type='text' name='pris' size='30'></font></td> </tr> <tr> <td><font face="Arial">Omsætning:</font></td> <td><font face="Arial"><input type='text' name='omsaetning' size='30'></font></td> </tr> <tr> <td><font face="Arial">Egenkapital:</font></td> <td><font face="Arial"><input type='text' name='egenkapital' size='30'></font></td> </tr> <tr> <td colspan='2'><font face="Arial"> </font></td> </tr> <tr> <td colspan="2"> <% Set Conn = Server.CreateObject("ADODB.Connection") DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; " DSN = DSN & "DBQ=" & Server.MapPath("fpdb/fhcrm.mdb") Conn.Open DSN strSQL = "SELECT * from brancher order by branche" Set rs = conn.Execute(strSQL) %> <select name="dropdown" size="1"> <% Do While Not rs.EOF %> <option value="<%=rs("brancheID")%>" "<%=rs("branche")%>"></option> <% rs.MoveNext Loop %> </select> <% Conn.Close Set Conn = Nothing %> </td> </tr> <tr> <td valign='top'><font face="Arial">Brancheerfaring:</font></td> <td><font face="Arial"><textarea cols='25' rows='3' name='brancheerfaring'></textarea></font></td> </tr> <tr> <td valign='top'><font face="Arial">Karriereforløb:</font></td> <td><font face="Arial"><textarea cols='25' rows='3' name='karriereforloeb'></textarea></font></td> </tr> <tr> <td valign='top'><font face="Arial">Geografisk område:</font></td> <td><font face="Arial"><input type='text' name='geografisk_omraade' size='30'></font></td> </tr> <tr> <td valign='top'><font face="Arial">Henvendelse/Spørgsmål:</font></td> <td><font face="Arial"><textarea cols='25' rows='8' name='tekst'></textarea></font></td> </tr> <tr> <td><font face="Arial"> </font></td> <td><font face="Arial"><input type='submit' name='submit' value='Send'></font></td> </tr> </table> </form>
05. november 2005 - 16:04
#4
Hej Steen Mange tak for din hjælp men jeg kan desværre ikke få det til at virke! Jeg kan godt se det smarte i at "skille tingene ad" men nu er jeg tilbage hvor jeg har en lille dropdown box i øverste hjørne uden data. Kan du se hvad der er galt? mvh Flemming Hele koden: <html> <head> <title>Bliv registeret</title> </head> <body topmargin='10' leftmargin='10' rightmargin='10' bottommargin='10' bgcolor="#666666" text="#FFFFFF"> <p> <form action='registrer.asp' method='post'> <table cellspacing='0' cellpadding='2' border='0' width="485"> <tr> <td><b><font face="Arial">Firmanavn:</font></b></td> <td><font face="Arial"><input type='text' name='firma' size='35'></font></td> </tr> <tr> <td colspan='2'><font face="Arial"> </font></td> </tr> <tr> <td><font face="Arial">Fornavn:</font></td> <td><font face="Arial"><input type='text' name='fornavn' size='30'><font color="#FF0000">*</font></font></td> </tr> <tr> <td><font face="Arial">Efternavn:</font></td> <td><font face="Arial"><input type='text' name='efternavn' size='30'><font color="#FF0000">*</font></font></td> </tr> <tr> <td><font face="Arial">Adresse:</font></td> <td><font face="Arial"><input type='text' name='adresse' size='30'><font color="#FF0000">*</font></font></td> </tr> <tr> <td><font face="Arial">Postnr. og by:</font></td> <td><font face="Arial"><input type='text' name='postnr' size='5'> <input type='text' name='by' size='20'><font color="#FF0000">*</font></font></td> </tr> <tr> <td><font face="Arial">Telefon:</font></td> <td><font face="Arial"><input type='text' name='telefon' size='30'><font color="#FF0000">*</font> </font></td> </tr> <tr> <td><font face="Arial">Fax:</font></td> <td><font face="Arial"><input type='text' name='fax' size='30'></font></td> </tr> <tr> <td><font face="Arial">E-mail:</font></td> <td><font face="Arial"><input type='text' name='email' size='30'><font color="#FF0000">*</font></font></td> </tr> <tr> <td><font face="Arial">Website:</font></td> <td><font face="Arial"><input type='text' name='website' size='30'></font></td> </tr> <tr> <td colspan='2'><font face="Arial"> </font></td> </tr> <tr> <td><font face="Arial">Privat adresse:</font></td> <td><font face="Arial"><input type='text' name='privat_adresse' size='30'></font></td> </tr> <tr> <td><font face="Arial">Privat postnr. og by::</font></td> <td><font face="Arial"><input type='text' name='privat_postnr' size='5'> <input type='text' name='privat_by' size='20'></font></td> </tr> <tr> <td><font face="Arial">Privat telefon:</font></td> <td><font face="Arial"><input type='text' name='privat_telefon' size='30'></font></td> </tr> <tr> <td><font face="Arial">Privat fax:</font></td> <td><font face="Arial"><input type='text' name='privat_fax' size='30'></font></td> </tr> <tr> <td><font face="Arial">Mobiltelefon:</font></td> <td><font face="Arial"><input type='text' name='mobiltelefon' size='30'></font></td> </tr> <tr> <td colspan='2'><font face="Arial"> </font></td> </tr> <tr> <td><font face="Arial">Overskrift til Internet:</font></td> <td><font face="Arial"><input type='text' name='interoverskrift' size='30'></font></td> </tr> <tr> <td valign='top'><font face="Arial">Tekst til Internet:</font></td> <td><font face="Arial"><textarea cols='25' rows='5' name='internet_tekst'></textarea></font></td> </tr> <tr> <td colspan='2'><font face="Arial"> </font></td> </tr> <tr> <td><font face="Arial">Pris:</font></td> <td><font face="Arial"><input type='text' name='pris' size='30'></font></td> </tr> <tr> <td><font face="Arial">Omsætning:</font></td> <td><font face="Arial"><input type='text' name='omsaetning' size='30'></font></td> </tr> <tr> <td><font face="Arial">Egenkapital:</font></td> <td><font face="Arial"><input type='text' name='egenkapital' size='30'></font></td> </tr> <tr> <td colspan='2'><font face="Arial"> </font></td> </tr> <tr> <% Set Conn = Server.CreateObject("ADODB.Connection") DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; " DSN = DSN & "DBQ=" & Server.MapPath("fpdb/fhcrm.mdb") Conn.Open DSN strSQL = "SELECT * from brancher order by branche" Set rs = conn.Execute(strSQL) %> <select name="dropdown" size="1"> <% Do While Not rs.EOF %> <option value="<%=rs("brancheID")%>" "<%=rs("branche")%>"></option> <% rs.MoveNext Loop %> </select> <% Conn.Close Set Conn = Nothing %> </tr> <tr> <td valign='top'><font face="Arial">Brancheerfaring:</font></td> <td><font face="Arial"><textarea cols='25' rows='3' name='brancheerfaring'></textarea></font></td> </tr> <tr> <td valign='top'><font face="Arial">Karriereforløb:</font></td> <td><font face="Arial"><textarea cols='25' rows='3' name='karriereforloeb'></textarea></font></td> </tr> <tr> <td valign='top'><font face="Arial">Geografisk område:</font></td> <td><font face="Arial"><input type='text' name='geografisk_omraade' size='30'></font></td> </tr> <tr> <td valign='top'><font face="Arial">Henvendelse/Spørgsmål:</font></td> <td><font face="Arial"><textarea cols='25' rows='8' name='tekst'></textarea></font></td> </tr> <tr> <td><font face="Arial"> </font></td> <td><font face="Arial"><input type='submit' name='submit' value='Send'></font></td> </tr> </table> </form> </body> </html>
05. november 2005 - 16:12
#5
Hm? Der manglede da også <td>: <p> <form action='registrer.asp' method='post'> <table cellspacing='0' cellpadding='2' border='0' width="485"> <tr> <td><b><font face="Arial">Firmanavn:</font></b></td> <td><font face="Arial"><input type='text' name='firma' size='35'></font></td> </tr> <tr> <td colspan='2'><font face="Arial"> </font></td> </tr> <tr> <td><font face="Arial">Fornavn:</font></td> <td><font face="Arial"><input type='text' name='fornavn' size='30'><font color="#FF0000">*</font></font></td> </tr> <tr> <td><font face="Arial">Efternavn:</font></td> <td><font face="Arial"><input type='text' name='efternavn' size='30'><font color="#FF0000">*</font></font></td> </tr> <tr> <td><font face="Arial">Adresse:</font></td> <td><font face="Arial"><input type='text' name='adresse' size='30'><font color="#FF0000">*</font></font></td> </tr> <tr> <td><font face="Arial">Postnr. og by:</font></td> <td><font face="Arial"><input type='text' name='postnr' size='5'> <input type='text' name='by' size='20'><font color="#FF0000">*</font></font></td> </tr> <tr> <td><font face="Arial">Telefon:</font></td> <td><font face="Arial"><input type='text' name='telefon' size='30'><font color="#FF0000">*</font> </font></td> </tr> <tr> <td><font face="Arial">Fax:</font></td> <td><font face="Arial"><input type='text' name='fax' size='30'></font></td> </tr> <tr> <td><font face="Arial">E-mail:</font></td> <td><font face="Arial"><input type='text' name='email' size='30'><font color="#FF0000">*</font></font></td> </tr> <tr> <td><font face="Arial">Website:</font></td> <td><font face="Arial"><input type='text' name='website' size='30'></font></td> </tr> <tr> <td colspan='2'><font face="Arial"> </font></td> </tr> <tr> <td><font face="Arial">Privat adresse:</font></td> <td><font face="Arial"><input type='text' name='privat_adresse' size='30'></font></td> </tr> <tr> <td><font face="Arial">Privat postnr. og by::</font></td> <td><font face="Arial"><input type='text' name='privat_postnr' size='5'> <input type='text' name='privat_by' size='20'></font></td> </tr> <tr> <td><font face="Arial">Privat telefon:</font></td> <td><font face="Arial"><input type='text' name='privat_telefon' size='30'></font></td> </tr> <tr> <td><font face="Arial">Privat fax:</font></td> <td><font face="Arial"><input type='text' name='privat_fax' size='30'></font></td> </tr> <tr> <td><font face="Arial">Mobiltelefon:</font></td> <td><font face="Arial"><input type='text' name='mobiltelefon' size='30'></font></td> </tr> <tr> <td colspan='2'><font face="Arial"> </font></td> </tr> <tr> <td><font face="Arial">Overskrift til Internet:</font></td> <td><font face="Arial"><input type='text' name='interoverskrift' size='30'></font></td> </tr> <tr> <td valign='top'><font face="Arial">Tekst til Internet:</font></td> <td><font face="Arial"><textarea cols='25' rows='5' name='internet_tekst'></textarea></font></td> </tr> <tr> <td colspan='2'><font face="Arial"> </font></td> </tr> <tr> <td><font face="Arial">Pris:</font></td> <td><font face="Arial"><input type='text' name='pris' size='30'></font></td> </tr> <tr> <td><font face="Arial">Omsætning:</font></td> <td><font face="Arial"><input type='text' name='omsaetning' size='30'></font></td> </tr> <tr> <td><font face="Arial">Egenkapital:</font></td> <td><font face="Arial"><input type='text' name='egenkapital' size='30'></font></td> </tr> <tr> <td colspan='2'><font face="Arial"> </font></td> </tr> <tr> <td> <% Set Conn = Server.CreateObject("ADODB.Connection") DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; " DSN = DSN & "DBQ=" & Server.MapPath("fpdb/fhcrm.mdb") Conn.Open DSN strSQL = "SELECT * from brancher order by branche" Set rs = conn.Execute(strSQL) %> <select name="dropdown" size="1"> <% Do While Not rs.EOF %> <option value="<%=rs("brancheID")%>" "<%=rs("branche")%>"></option> <% rs.MoveNext Loop %> </select> <% Conn.Close Set Conn = Nothing %> </td> </tr> <tr> <td valign='top'><font face="Arial">Brancheerfaring:</font></td> <td><font face="Arial"><textarea cols='25' rows='3' name='brancheerfaring'></textarea></font></td> </tr> <tr> <td valign='top'><font face="Arial">Karriereforløb:</font></td> <td><font face="Arial"><textarea cols='25' rows='3' name='karriereforloeb'></textarea></font></td> </tr> <tr> <td valign='top'><font face="Arial">Geografisk område:</font></td> <td><font face="Arial"><input type='text' name='geografisk_omraade' size='30'></font></td> </tr> <tr> <td valign='top'><font face="Arial">Henvendelse/Spørgsmål:</font></td> <td><font face="Arial"><textarea cols='25' rows='8' name='tekst'></textarea></font></td> </tr> <tr> <td><font face="Arial"> </font></td> <td><font face="Arial"><input type='submit' name='submit' value='Send'></font></td> </tr> </table> </form> </body> </html>
05. november 2005 - 16:17
#6
Ups, en fejl: <p> <form action='registrer.asp' method='post'> <table cellspacing='0' cellpadding='2' border='0' width="485"> <tr> <td><b><font face="Arial">Firmanavn:</font></b></td> <td><font face="Arial"><input type='text' name='firma' size='35'></font></td> </tr> <tr> <td colspan='2'><font face="Arial"> </font></td> </tr> <tr> <td><font face="Arial">Fornavn:</font></td> <td><font face="Arial"><input type='text' name='fornavn' size='30'><font color="#FF0000">*</font></font></td> </tr> <tr> <td><font face="Arial">Efternavn:</font></td> <td><font face="Arial"><input type='text' name='efternavn' size='30'><font color="#FF0000">*</font></font></td> </tr> <tr> <td><font face="Arial">Adresse:</font></td> <td><font face="Arial"><input type='text' name='adresse' size='30'><font color="#FF0000">*</font></font></td> </tr> <tr> <td><font face="Arial">Postnr. og by:</font></td> <td><font face="Arial"><input type='text' name='postnr' size='5'> <input type='text' name='by' size='20'><font color="#FF0000">*</font></font></td> </tr> <tr> <td><font face="Arial">Telefon:</font></td> <td><font face="Arial"><input type='text' name='telefon' size='30'><font color="#FF0000">*</font> </font></td> </tr> <tr> <td><font face="Arial">Fax:</font></td> <td><font face="Arial"><input type='text' name='fax' size='30'></font></td> </tr> <tr> <td><font face="Arial">E-mail:</font></td> <td><font face="Arial"><input type='text' name='email' size='30'><font color="#FF0000">*</font></font></td> </tr> <tr> <td><font face="Arial">Website:</font></td> <td><font face="Arial"><input type='text' name='website' size='30'></font></td> </tr> <tr> <td colspan='2'><font face="Arial"> </font></td> </tr> <tr> <td><font face="Arial">Privat adresse:</font></td> <td><font face="Arial"><input type='text' name='privat_adresse' size='30'></font></td> </tr> <tr> <td><font face="Arial">Privat postnr. og by::</font></td> <td><font face="Arial"><input type='text' name='privat_postnr' size='5'> <input type='text' name='privat_by' size='20'></font></td> </tr> <tr> <td><font face="Arial">Privat telefon:</font></td> <td><font face="Arial"><input type='text' name='privat_telefon' size='30'></font></td> </tr> <tr> <td><font face="Arial">Privat fax:</font></td> <td><font face="Arial"><input type='text' name='privat_fax' size='30'></font></td> </tr> <tr> <td><font face="Arial">Mobiltelefon:</font></td> <td><font face="Arial"><input type='text' name='mobiltelefon' size='30'></font></td> </tr> <tr> <td colspan='2'><font face="Arial"> </font></td> </tr> <tr> <td><font face="Arial">Overskrift til Internet:</font></td> <td><font face="Arial"><input type='text' name='interoverskrift' size='30'></font></td> </tr> <tr> <td valign='top'><font face="Arial">Tekst til Internet:</font></td> <td><font face="Arial"><textarea cols='25' rows='5' name='internet_tekst'></textarea></font></td> </tr> <tr> <td colspan='2'><font face="Arial"> </font></td> </tr> <tr> <td><font face="Arial">Pris:</font></td> <td><font face="Arial"><input type='text' name='pris' size='30'></font></td> </tr> <tr> <td><font face="Arial">Omsætning:</font></td> <td><font face="Arial"><input type='text' name='omsaetning' size='30'></font></td> </tr> <tr> <td><font face="Arial">Egenkapital:</font></td> <td><font face="Arial"><input type='text' name='egenkapital' size='30'></font></td> </tr> <tr> <td colspan='2'><font face="Arial"> </font></td> </tr> <tr> <td> <% Set Conn = Server.CreateObject("ADODB.Connection") DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; " DSN = DSN & "DBQ=" & Server.MapPath("fpdb/fhcrm.mdb") Conn.Open DSN strSQL = "SELECT * from brancher order by branche" Set rs = conn.Execute(strSQL) %> <select name="dropdown" size="1"> <% Do While Not rs.EOF %> <option value="<%=rs("brancheID")%> <%=rs("branche")%>"></option> <% rs.MoveNext Loop %> </select> <% Conn.Close Set Conn = Nothing %> </td> </tr> <tr> <td valign='top'><font face="Arial">Brancheerfaring:</font></td> <td><font face="Arial"><textarea cols='25' rows='3' name='brancheerfaring'></textarea></font></td> </tr> <tr> <td valign='top'><font face="Arial">Karriereforløb:</font></td> <td><font face="Arial"><textarea cols='25' rows='3' name='karriereforloeb'></textarea></font></td> </tr> <tr> <td valign='top'><font face="Arial">Geografisk område:</font></td> <td><font face="Arial"><input type='text' name='geografisk_omraade' size='30'></font></td> </tr> <tr> <td valign='top'><font face="Arial">Henvendelse/Spørgsmål:</font></td> <td><font face="Arial"><textarea cols='25' rows='8' name='tekst'></textarea></font></td> </tr> <tr> <td><font face="Arial"> </font></td> <td><font face="Arial"><input type='submit' name='submit' value='Send'></font></td> </tr> </table> </form> </body> </html>
05. november 2005 - 16:23
#7
Tak for det. Nu er dropdown boksen på plads Men combo boksen indeholder ikke nogen resultater og er kun ca. 1 cm bred? Når jeg bruger den "gamle" kode virker dropdown boksen men spørgsmålet er hvordan jeg får den flyttet "ind på linie" med de andre så jeg kan placere en label foran boksen? vh Flemming Se den "gamle kode" nedenfor <% Set Conn = Server.CreateObject("ADODB.Connection") DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; " DSN = DSN & "DBQ=" & Server.MapPath("fpdb/fhcrm.mdb") Conn.Open DSN strSQL = "SELECT * from brancher order by branche" Set rs = conn.Execute(strSQL) Response.Write "<select name=dropdown size=1>" Do While Not rs.EOF Response.Write "<option value=""" & """>"& rs("branche") & "</option>" rs.MoveNext Loop Response.Write "</select>" Conn.Close Set Conn = Nothing %>
05. november 2005 - 16:27
#8
<% Set Conn = Server.CreateObject("ADODB.Connection") DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; " DSN = DSN & "DBQ=" & Server.MapPath("fpdb/fhcrm.mdb") Conn.Open DSN strSQL = "SELECT * from brancher order by branche" Set rs = conn.Execute(strSQL) %> <select name="dropdown" size="1"> <% Do While Not rs.EOF %> <option value="<%=rs("brancheID")%>"><%=rs("branche")%></option> <% rs.MoveNext Loop %> </select> <% Conn.Close Set Conn = Nothing %> Altså denne linie: <option value="<%=rs("brancheID")%>"><%=rs("branche")%></option>
05. november 2005 - 16:34
#9
Hej Steen Så virker det perfekt! Jeg er som du nok kan regne ud meget "grøn" endnu og meget glad for din hjælp Vil du poste et svar så du kan få nogle meget velfortjente point? Tak for hjælpen mvh Flemming
05. november 2005 - 16:35
#10
Det var så lidt Flemming. Glæder mig, at det virker :) Tak for point :)
Kurser inden for grundlæggende programmering