Jeg kan ikke få denne kode til at virke!

Jeg har kigget på din kode,
Det eneste problem jeg kan se skulle være dine sql'er...

Når du har tal, skal du ikke bruge '' omkring dine variable...
Forestiller mig derfor noget i denne stil i stedet...
ConnDB.execute "INSERT INTO tagwall (navn,hjemmeside,alder,email,tlf,mobil,status,citat,drik,bommert,msn) VALUES ('" & navn & "','" & hjemmeside & "'," & alder & ",'" & email & "'," & tlf & "," & mobil & ",'" & status & "','" & citat & "','" & drik & "','" & bommert & "','" & msn & "')"

Det virker stadig ikke, og jeg tror ik det er min mdb som fejler noget

hvad er problemet...?

siden bliver slet ikke vist

not much to do with Access, I would suggest you move the question to the correct category, you have a better chance of getting an asnwer :o)

ELSE
            call StartOfPage
            call InputForm
            %><SPAN CLASS="almText">Du er ved at spammer TagWall'en<BR>STOP DET, tak</SPAN><P>
            <%
            call tagwall
            call EndOfPage
        End if
    ELSE
        'Alle felter er ikke udfyldt
        call StartOfPage
        call InputForm
        %><SPAN CLASS="almText">Du mangeler at udfylde et eller flere af felterne!!!</SPAN><P>
        <%
        call tagwall
        call EndOfPage
    End if
Else
    call StartOfPage
    call InputForm
    call tagwall
    call EndOfPage
End if

Dette kan måske hjælpe dig, men det er svært når man ikke ved hvilken fejl der er tale om...

still not much to do with Access

Nu har jeg puttet din kode ind og nu ser den sådan ud
------------
<%@ 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
            call StartOfPage
            call InputForm
            %><SPAN CLASS="almText">Du er ved at spammer TagWall'en<BR>STOP DET, tak</SPAN><P>
            <%
            call members
            call EndOfPage
        End if
    ELSE
        'Alle felter er ikke udfyldt
        call StartOfPage
        call InputForm
        %><SPAN CLASS="almText">Du mangeler at udfylde et eller flere af felterne!!!</SPAN><P>
        <%
        call members
        call EndOfPage
    End if
Else
    call StartOfPage
    call InputForm
    call members
    call 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
%>
-----
Men jeg får nu denne fejl.

Microsoft VBScript runtime error '800a01f4'

Variable is undefined: 'members'

/strandparty/index.asp, line 48

Nu lukker du bare kajen terry, jeg kan jo ligesom ikke flytte spørgsmålet nu vel. og der er faktisk en flink person som prøver at hjælpe mig.

Talking like that doesnt get you anywhere jesper! There is a GOOD reason for ASP question being placed in the correct category and one of them is mentioned here 19/06-2003 11:57:10 BEFORE you got an answer! Please make note of this another time or I WILL contact admin!

jesper>I see you have created another ASP question in this category, do you understand WHY I ask you to place them in the correct category or would you like admin to help me explain?

tilfreds?

det er meget muligt at jeg har gjort det, og ser du det er nok fordi at siden skal arbejde sammen med en access database, og det er det med databasen som er problemet, så lidt har det sq nok med database at gøre.

NO!
Jesper, I am only saying this to HELP! I can program in a number of programming languages and also (a little) ASP/HTML but not all Access developers can. So seeing pages of HTML with a little SQL which is supposed to do something with an Access dB isnt very readable, so it isnt easy to help. THEREFOR I suggested you place these questions in the ASP category where YOU have a better chance of getting help. IF you know that the problem IS the Access (SQL) then GREAT place your question in this catgeory, but PLEASE without all that HTML :o)

In connection to your actual problem, and BECAUSE I dont understand MUCH of all that HTML. Then I would suggest taking ONLY the Access bits and make sure they work.

Terry ->>
Nu vil jeg ikke være på tværs. Og selvfølgelig skal ASP spørgsmål være placeret i ASP kategorien...

Men hvorfor svarer du på spørgsmålet, i stedet for bare at kommentere det...
Hvad med at give Jesper de 15 point tilbage da du ikke har hjulpet ham med han problem overhovedet, men kun kritiseret hans valg af kategori ??

I have NO problem with that at all ellebaek, he can have 50 for all I care, but let hime decide :o)

and you can have a few too :o)

jeg er ret ligeglad med point det eneste jeg gerne ville have er at få min side til at fungere korrekt, hvis du forstår

Jesper believe me I do, and that is why I have suggested placing the question in ASP, there must be MANY more ASP freeks there than here IKKE?

Jo det har jeg fattet terry, men hvad er det nu du ik fatter?
Har jeg ikke lukket spørgsmålet?

Jesper>Do you always use this tone when you communicate with people?

nej men kan vi ikke bare stoppe her, jeg har forstået dit budskab

jesper -> Det var mig der foreslog terry at give dig pointene tilbage, da han ikke havde hjulpet dig med dit spg. Det var ikke for at starte en diskution imellem jer to...

Jeg synes bare du skal have de point af ham, så bliver alle glade...

ellebaek>http://www.eksperten.dk/spm/366960

f... my old boots!

folk er da smarte herinde er vi alle sammen interesret i at hjælpe hinanden og jesper prøv lige at undersøge hvem du taler med inden du fare sådan op...
Terry har hjulpet mange og jeg har aldrig haft problemer med ham , derfor vil jeg forslå at du giver ham en lille undskyldning såfremt du ønsker hjælp herinde een anden da han er den bedste eksperten har vedr access, og så er det jo dumt at tale sådan til folk der prøver at hjælpe...