Else if statement

Virker dette ikke:

if (request.form("funktionVp") <> "" OR request.form("materialeVp") <> "") Then

fet321's kommentar burde virke.....

Alternativt er der:

If request.form("funktionVp") <> "" Then
  Handling 1 for ikke tom form
Elseif request.form("materialeVp") <> "" Then
  Handling 2 for ikke tom form
Else:
  Handling for tomme forme
End If

if (request.form("funktionVp") <> "" OR request.form("materialeVp") <> "") Then

Den der skal den ikke være uden paranteserne yderst ? altså:

if request.form("funktionVp") <> "" OR request.form("materialeVp") <> "" Then

/Tubber

Jeg ved det ikke...
if request.form("funktionVp") <> "" Then
conn.execute("insert into krNotify(Funktion) values('ja')")
elseif request.form("funktionMa") <> "" Then
conn.execute("insert into krNotify(Materiale) values('ja')")
elseif request.form("funktionKa") <> "" Then
conn.execute("insert into krNotify(Nyhed) values('ja')")
elseif request.form("funktionLb") <> "" Then
conn.execute("insert into krNotify(LayOut) values('ja')")

Denne fungere naturligvis. Men:
Der kommer selvfølgelig kun én indtastning med.
Hvis nu alle 4 checkboxe er udfyldt skulle alle 4 jo gerne med.
Og så kommer de også hvor hver sin linie hvilket er klodset. Hver række angiver hvad der er afkrydset for én mail adresse

Denne går heller ikke. Her kommer det på én linie.
Men kun hvis begge cjecjboxe er udfyldt
if request.form("funktionVp") <> "" OR request.form("materialeVp") <> "" Then
conn.execute("insert into krNotify(Funktion, Materiale) values('ja','ja')")

ah ok :)

Prøv denne her:

if request.form("funktionVp") <> "" Then conn.execute("insert into krNotify(Funktion) values('ja')")
if request.form("funktionMa") <> "" Then
conn.execute("insert into krNotify(Materiale) values('ja')")
if request.form("funktionKa") <> "" Then
conn.execute("insert into krNotify(Nyhed) values('ja')")
if request.form("funktionLb") <> "" Then
conn.execute("insert into krNotify(LayOut) values('ja')")

Denne virker:

    Set Conn= Server.CreateObject("ADODB.Connection")
    DSN = "DRIVER={Microsoft Access Driver (*.mdb)};"
    DSN = DSN & "DBQ=" & Server.MapPath("../Data/krDbNotify.mdb")
    Conn.Open DSN

'if request.form("funktionVp") <> "" Then
Funktion1 = Request.Form("funktionVp")
Funktion2 = Request.Form("funktionMa")
Funktion3 = Request.Form("funktionKa")
Funktion4 = Request.Form("funktionLb")

conn.execute("insert into krNotify(Funktion, Materiale, Nyhed, LayOut) values('" & Funktion1 & "', '" & Funktion2 & "', '" & Funktion3 & "', '" & Funktion4 & "')")

Indtil videre ;)

Sender du et svar tubber

Her er det :)

Tak for hjælpen

Så lidt :)

Skulle det være en anden gang og tak for points :)

Du kan da prøve at se her http://www.eksperten.dk/spm/514482  ;)