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>
'----------------------------------
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 !]")
%>
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
%>