Just nu i M3-nätverket
Jump to content

Checkbox


kjell3

Recommended Posts

Ä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!

Link to comment
Share on other sites

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

%>

 

 

Link to comment
Share on other sites

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]

Link to comment
Share on other sites

Archived

This topic is now archived and is closed to further replies.



×
×
  • Create New...