Hejsan alla vänliga aspnördar, världen är grym. Av någon anledning skrivs inte textsträngen ut och jag kan inte förstå varför. Användningsområdet är naturligtvis inte att man ska skriva ut strängen på sidan, jag ville bara pröva principen. Så fungerar det inte. Buhaha!
Pliiiis tell me whåtts rång.
<%
'FUNKTION FÖR ATT SKAPA SQLSATSER
'***************************************
function makeSQL(objekt)
Dim SQL
Dim strOrder
Dim strTabell
Select Case objekt
Case "users"
strTabell = "user"
strOrder = "name"
Case "menu"
strOrder = "position"
strTabell = "english"
Case "content"
strOrder = "name"
strTabell = "english"
End Select
SQL = "SELECT * FROM " & strTabell & " ORDER BY " & strOrder & " "
eftersom du dimmat SQL inne i funktionen kan du inte anropa den utanför.
jag är lite orolig för dina fältnamn, ett par av dem (user och name) kan vara reserverade av access, så därför bör du nog klamra dem.
varför inte returnera sql-frågan?
<%
'FUNKTION FÖR ATT SKAPA SQLSATSER
'***************************************
function makeSQL(objekt)
Dim SQL
Dim strOrder
Dim strTabell
Select Case objekt
Case "users"
strTabell = "[user]"
strOrder = "[name]"
Case "menu"
strOrder = "position"
strTabell = "english"
Case "content"
strOrder = "[name]"
strTabell = "english"
End Select
SQL = "SELECT * FROM " & strTabell & " ORDER BY " & strOrder & " "
makeSQL = SQL
end function
SQL = makeSQL("user")
Response.Write("SQL = " & SQL & "")
%>
välkommen till webforum...även om inte jag hjälpte dig..