Checkbox

[kjell3]

Är det någon som kan tala om för en nybörjare hur jag skriver insert satsen om jag har en Checkbox?

I Access databasen har jag satt true/false. Om Checkboxen lämnas tom ska det inte skrivas i Access bara om man markerar Checkbox.

 

Help!

[peterbladh]

Om du använder dig av recordset är det bara att skriva rs("FältNamn")=true

 

 

[kjell3]

Jag skickar med min nödlösning av problemet, den funkar men måste ju att gå att göra enklare. Tyvärr fixar jag inte det nu, det är jaemail som är Checkboxen:

 

<%

If Request.Form("Action")<> "" Then

 

forumid = TRIM(Request.Form("forumid"))

replyid = TRIM(Request.Form("replyid"))

orgid = TRIM(Request.Form("replyid"))

name = TRIM(Request.Form("name"))

email = TRIM(Request.Form("email"))

jaemail = TRIM(Request.Form("jaemail"))

subject = TRIM(Request.Form("subject"))

comment = TRIM(Request.Form("comment"))

 

 

If jaemail = "" Then

 

 

SQL3 = "Insert Into informant(forumid, name, email, subject, comment, replyid, re, orgid) Values("& forumid &",'"& DBFix(Trim(Request.Form("name"))) &"','"& DBFix(Trim(Request.Form("email"))) &"','"& DBFix(Trim(Request.Form("subject"))) &"','"& DBFix(Trim(Request.Form("comment"))) &"',"& replyid &","&" True "&","& orgid&");"

Conn.Execute(SQL3)

 

%>

 

<% Else %>

 

<%

SQL4 = "Insert Into informant(jaemail, forumid, name, email, subject, comment, replyid, re, orgid) Values("&" True "&","& forumid &",'"& DBFix(Trim(Request.Form("name"))) &"','"& DBFix(Trim(Request.Form("email"))) &"','"& DBFix(Trim(Request.Form("subject"))) &"','"& DBFix(Trim(Request.Form("comment"))) &"',"& replyid &","&" True "&","& orgid&");"

Conn.Execute(SQL4)

End If

%>

 

 

[Gunnar Liljas]

Hmmm, lite knasigt där

 

1. Först en massa trim-satser, och sedan samma trim-grejor igen, i SQL-satsen. Onödigt.

 

2.

 

Values("&" True "&","& forumid

 

också onödig kod.

 

Values(True," & forumid

 

är ju samma sak.

 

3. Onödigt och processorkrävade med <% %> "överallt". Varför hoppa ur ASP:n med %> och sedan hoppa direkt in igen?

 

3. Varför inte lägga värdet i en variabel? Liksom:

 

<%

If Request.Form("Action")<> "" Then

 

forumid = dbfix(TRIM(Request.Form("forumid")))

replyid = dbfix(TRIM(Request.Form("replyid")))

orgid = dbfix(TRIM(Request.Form("replyid")))

name = dbfix(TRIM(Request.Form("name")))

email = dbfix(TRIM(Request.Form("email")))

jaemail = dbfix(TRIM(Request.Form("jaemail")))

subject = dbfix(TRIM(Request.Form("subject")))

comment = dbfix(TRIM(Request.Form("comment")))

 

 

If jaemail = "" Then

jaemail="true"

else

jaemail="false"

end if

 

SQL4 = "Insert Into informant(jaemail, forumid, name, email, subject, comment, replyid, re, orgid) Values(" & jaemail & "," & forumid &",'" & name & "','" & email "','" & subject & "','" & comment & "'," & replyid & ",True," & orgid & ")"

 

Conn.Execute(SQL4)

 

End If

%>

 

 

 

 

 

 

[inlägget ändrat 2000-07-07 21:49:12 av Gunnar Liljas]