07. august 2006 - 17:36Der er
7 kommentarer og 1 løsning
Problemer med funktion
Hej
Jeg har en funktion som jeg bruger til at hive tekst ud af databasen med:
<% Function Text(Lang, TextID)
Set Rs = Conn.Execute("SELECT * FROM jb_text WHERE lang = '"&Lang&"' AND textid = '"& TextID &"'") Text = RS("text") Rs.Close Set Rs = Nothing
End Function %>
Kaldes med:
<%=Text(dk,PageTitle)%>
Men den køre funktionen med det samme siden læses hvilket vil sige at Lang og TextID er tom.. OG så kommer der jo en fejl... Hvordna kan man undgå det?
2) IF-sætninge: <% Function Text(Lang, TextID) if Lang <> "" and TextID <> "" then Set Rs = Conn.Execute("SELECT * FROM jb_text WHERE lang = '"&Lang&"' AND textid = '"& TextID &"'") Text = RS("text") Rs.Close Set Rs = Nothing end if End Function %>
Det burde være det samme, som at returnerer en tom streng:
<% Function Text(Lang, TextID) if Lang <> "" and TextID <> "" then Set Rs = Conn.Execute("SELECT * FROM jb_text WHERE lang = '"&Lang&"' AND textid = '"& TextID &"'") Text = RS("text") Rs.Close Set Rs = Nothing else Text = "" end if End Function %>
Hmm.. det er nok bedre at lukke forbindelsen først:
<% Function Text(Lang, TextID) if Lang <> "" and TextID <> "" then dim tmp Set Rs = Conn.Execute("SELECT * FROM jb_text WHERE lang = '"&Lang&"' AND textid = '"& TextID &"'") tmp = RS("text") Rs.Close Set Rs = Nothing Text = tmp else Text = "" end if End Function %>
Hvis Lang er tom, eller TextId er tom, returneres der ingenting..
Ellers skulle den gerne returnere data fra databasen..
Prøv det her:
<% Function Text(Lang, TextID) if Lang <> "" and TextID <> "" then dim tmp, sql sql = "SELECT * FROM jb_text WHERE lang = '"&Lang&"' AND textid = '"& TextID &"'" Set Rs = Conn.Execute(sql) tmp = RS("text") Rs.Close Set Rs = Nothing Text = "sql: *" & sql & "*" else Text = "" end if End Function %>
<% Function Text(Lang, TextID) if Lang <> "" and TextID <> "" then dim tmp, sql sql = "SELECT * FROM jb_text WHERE lang = '"&Lang&"' AND textid = '"& TextID &"'" Set Rs = Conn.Execute(sql) tmp = RS("text") Rs.Close Set Rs = Nothing Text = "sql: *" & sql & "*" else Text = "*Lang og TextId er tomme*" end if End Function %>
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.