Avatar billede Slettet bruger
19. juni 2003 - 19:09 Der er 2 kommentarer og
1 løsning

Drop Down Menu's værdi overført til Access

Hej jeg har en kode som her således ud, mit problem er bare hvad skal jeg gøre for at få resultatet af hvad brugeren vælger ned i min database? er det denne kode <%=msn%> man skal smide ind et eller andet sted?

'---------------------------------

<select size="1" name="msn">
    <option selected>Vælg venligst.</option>
    <option value="Ja">Ja</option>
    <option value="Nej">Nej</option>
    </select>

'----------------------------------
Avatar billede ddobbeltv Nybegynder
19. juni 2003 - 19:29 #1
du skal lave en lille asp fil der smider det ind i en database..

Eksempelvis :


<%
' ADODB connection objektet
Set Conn = Server.CreateObject("ADODB.Connection")
' Husk at angive den rigtige sti til din database
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("../db/database.mdb")
' Åben databaseforbindelsen
Conn.Open DSN

Set Skrivtildb = Server.CreateObject("ADODB.recordset")
Skrivtildb.open " [Navn på tabel] ", Conn, 2, 2

Skrivtildb.addnew
skrivtildb("[feltnavn]") = Request.QueryString("msn")
skrivtildb.update

Response.Redirect("[siden den skal sendes tilbage til !]")
%>
Avatar billede Slettet bruger
19. juni 2003 - 19:34 #2
alt det har jeg sq jeg mene. mit prob. er bare hvad man skal skrive der ved drop down menuen, jeg kan lige smide hele koden op

-----------------------------------------

<%@ Language=VBScript %>
<%
Option Explicit
Dim ConnDB, RS, navn, nick, hjemmeside, alder, email, tlf, mobil, status, citat, drik, bommert, msn

Set ConnDB = Server.CreateObject("ADODB.Connection")
ConnDB.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & server.MapPath("db\database.mdb")
'Fjerner evt mellemrum i start og slut af input
navn = Trim(Request.Form("navn"))
nick = Trim(Request.Form("nick"))
hjemmeside = Trim(Request.Form("hjemmeside"))
alder = Trim(Request.Form("alder"))
email = Trim(Request.Form("email"))
tlf = Trim(Request.Form("tlf"))
mobil = Trim(Request.Form("mobil"))
status = Trim(Request.Form("status"))
citat = Trim(Request.Form("citat"))
drik = Trim(Request.Form("drik"))
bommert = Trim(Request.Form("bommert"))
msn = Trim(Request.Form("msn"))
'-----------------------------------------------------------
IF (len(navn) <> 0) or len(nick) <> 0 or len(hjemmeside) <> 0 or len(alder) <> 0 or len(email) <> 0 or len(tlf) <> 0 or len(mobil) <> 0 or len(status) <> 0 or len(citat) <> 0 or len(drik) <> 0 or len(bommert) <> 0 or len(msn) <> 0 Then
'Der er indsendt data
    IF (len(navn) <> 0) AND len(nick) <> 0 AND len(hjemmeside) <> 0 AND len(alder) <> 0 AND len(email) <> 0 AND len(tlf) <> 0 AND len(mobil) <> 0 AND len(status) <> 0 AND len(citat) <> 0 AND len(drik) <> 0 AND len(bommert) <> 0 AND len(msn) <> 0 Then
        IF ConnDB.Execute ("SELECT * FROM members WHERE navn='" & navn & "' AND nick='" & nick & "' AND hjemmeside='" & hjemmeside & "' AND alder='" & alder & "' AND email='" & email & "' AND tlf='" & tlf & "' AND mobil='" & mobil & "' AND status='" & status & "' AND citat='" & citat & "' AND drik='" & drik & "' AND bommert='" & bommert & "' AND msn='" & msn & "'").EOF Then
        ConnDB.execute "INSERT INTO members (navn,nick,hjemmeside,alder,email,tlf,mobil,status,citat,drik,bommert,msn) VALUES ('" & navn & "','" & nick & "','" & hjemmeside & "','" & alder & "','" & email & "','" & tlf & "','" & mobil & "','" & status & "','" & citat & "','" & drik & "','" & bommert & "','" & msn & "')"
        Response.Redirect "index.asp"
        ELSE
            StartOfPage
            InputForm
            %><SPAN CLASS="almText">xxx xxx xxx</SPAN><P>
            <%
            members
            EndOfPage
        End if
    ELSE
        'Alle felter er ikke udfyldt
        StartOfPage
        InputForm
        %><SPAN CLASS="almText">Du mangeler at udfylde et eller flere af felterne!!!</SPAN><P>
        <%
        members
        EndOfPage
    End if
Else
    StartOfPage
    InputForm
    members
    EndOfPage
End if
'-----------------------------------------------------------
sub StartOfPage
%>
<HTML>
<HEAD>
<SCRIPT LANGUAGE="JAVASCRIPT">
<!--
function open_window(url,sizeX,sizeY) {
    mywin = window.open(url,'smileyWin','toolbar=0,location=0,directories=0,status=0,menubar=0,scrollbars=0,resizable=0,width=' + sizeX +',height='+ sizeY + '');
}
-->
</SCRIPT>
<STYLE>
.almText{
    FONT-FAMILY: Verdana;
    FONT-SIZE: 14px;
}

A.link1{
    FONT-FAMILY: Verdana;
    FONT-SIZE: 12px;
    color: #000000;
    TEXT-DECORATION: none;
}

A.link1:hover{
    FONT-FAMILY: Verdana;
    FONT-SIZE: 12px;
    color: #0000FF;
    font-weight: none;
    TEXT-DECORATION: underline;
}

.FlatButton{
    font-family: Vendana;
    font-size: 14px;
    background-color: #ffffff;
    border: 1px solid;
    border-color: #000000;
}

.FlatInput{
    font-family: Vendana;
    font-size: 14px;
    background-color: #FFFFFF;
    border: #000000;
    border-style: solid;
    border-top-width: 1px;
    border-right-width: 1px;
    border-bottom-width: 1px;
    border-left-width: 1px;
}
</STYLE>
</HEAD>
<BODY BGCOLOR="#ffffff" marginheight="0" topmargin="0" marginwidth="5" leftmargin="5">
<%
end sub
'-----------------------------------------------------------
sub EndOfPage
%>
<HR size=1 color="#000000">
<SPAN CLASS="almtext"><CENTER>
<p></p>
</CENTER></SPAN>
</BODY>
</HTML>
<%
end sub
'-----------------------------------------------------------
sub InputForm
%>
<FORM action="index.asp" METHOD="post" NAME="members"><BR>
<TABLE border=0 cellPadding=0 cellSpacing=0 width="248">
<TR>
    <TD CLASS="almtext" width="119">Fulde Navn:</TD>
    <TD width="129">
    <INPUT TYPE="text" name="navn" SIZE="15" CLASS="Flatinput" VALUE="<%=navn%>"></TD>
</TR>
<TR>
    <TD width="119">Hjemmeside:</TD>
    <TD width="129">
    <INPUT TYPE="text" name="hjemmeside" SIZE="15" MAXLENGTH="35" CLASS="FlatInput" VALUE="<%=hjemmeside%>"></TD>
</TR>
<TR>
    <TD width="119">Alder:</TD>
    <TD width="129"><select size="1" name="alder">
    <option selected>Vælg venligst.</option>
    <option value="14">14</option>
    <option value="15">15</option>
    <option value="16">16</option>
    <option value="17">17</option>
    <option value="18">18</option>
    <option value="19">19</option>
    <option value="20">20</option>
    <option value="21">21</option>
    <option value="22">22</option>
    <option value="23">23</option>
    <option value="24">24</option>
    <option value="25">25</option>
    </select></TD>
</TR>
<TR>
    <TD width="119">E-Mail:</TD>
    <TD width="129">
    <INPUT TYPE="text" name="email" SIZE="15" CLASS="Flatinput" VALUE="<%=email%>"></TD>
</TR>
<TR>
    <TD width="119">Tlf:</TD>
    <TD width="129">
    <INPUT TYPE="text" name="tlf" SIZE="15" CLASS="Flatinput" VALUE="<%=tlf%>"></TD>
</TR>
<TR>
    <TD width="119">Mobil:</TD>
    <TD width="129">
    <INPUT TYPE="text" name="mobil" SIZE="15" CLASS="Flatinput" VALUE="<%=mobil%>"></TD>
</TR>
<TR>
    <TD width="119">Partner Status:</TD>
    <TD width="129"><select size="1" name="status">
    <option selected>Vælg venligst.</option>
    <option value="Kæreste">Kæreste</option>
    <option value="Løst forhold">Løst forhold</option>
    <option value="Single">Single</option>
    </select></TD>
</TR>
<TR>
    <TD width="119">Ynglings Citat:</TD>
    <TD width="129">
    <INPUT TYPE="text" name="citat" SIZE="15" CLASS="Flatinput" VALUE="<%=citat%>"></TD>
</TR>
<TR>
    <TD width="119">Ynglings Drikke:</TD>
    <TD width="129">
    <INPUT TYPE="text" name="drik" SIZE="15" CLASS="Flatinput" VALUE="<%=drik%>"></TD>
</TR>
<TR>
    <TD width="119">Største Bommert:</TD>
    <TD width="129">
    <INPUT TYPE="text" name="bommert" SIZE="15" CLASS="Flatinput" VALUE="<%=bommert%>"></TD>
</TR>
<TR>
    <TD width="119">MSN:</TD>
    <TD width="129"><select size="1" name="msn">
    <option selected>Vælg venligst.</option>
    <option value="Ja">Ja</option>
    <option value="Nej">Nej</option>
    </select></TD>
</TR>
<TR>
    <TD width="119"></TD>
    <TD width="129"><INPUT TYPE="submit" VALUE="Skriv" CLASS="FlatButton" id=submit1 name=submit1></TD>
</TR>
</TABLE>
</FORM>
<%
end sub
%>
Avatar billede Slettet bruger
26. juni 2003 - 13:01 #3
Lukker
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
Dyk ned i databasernes verden på et af vores praksisnære Access-kurser

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.

Du kan også logge ind via nedenstående tjenester