syntaksfejl
Er der en der har en ide om hvorfor jeg får denne fejlmeddelelse[Microsoft][ODBC Microsoft Access-driver] Der er en syntaksfejl i FROM-delsætningen.
/stam/soeg/bund.asp, linje 46
<%
sub appWh(str,typ,str1,str2)
if str2<>\"\"Then
If str<>\"\"Then str=str&\" \"&typ else str=\"Where\" End if
str=str&\" \"&str1&\"=\'\"&str2&\"\'\"
end if
end sub
fornavn=Request.Form(\"fornavn\")
mellemnavn=Request.Form(\"mellemnavn\")
efternavn=Request.Form(\"efternavn\")
strTyp=Request.Form(\"typ\")
If fornavn=\"\" and mellemnavn=\"\" and efternavn=\"\" Then
Response.Write\"Indtast navn!\"
Else
strWh=\"\"
appWh strWh, strTyp,\"T_Personer.Fornavn\", fornavn
appWh strWh, strTyp,\"T_Personer.Mellemnavn\", mellemnavn
appWh strWh, strTyp,\"T_Personer.Efternavn\", efternavn
\'Response.Write \"<P><B>Søgekriterium:</B>\" &strWh& \"</P>\"
Dim objRec
Set objRec=Server.CreateObject(\"ADODB.Recordset\")
antal=0
objRec.Open \"SELECT T_Personer.Fornavn,T_Personer.Mellemnavn,T_Personer.Efternavn ,T_Personer_1.Fornavn As Mor, T_Personer_1.Mellemnavn,T_Personer_1.Efternavn,T_Personer_2.Fornavn As Far, T_Personer_2.Mellemnavn,T_Personer_2.Efternavn,T_Personer_3.Fornavn As Farfar, T_Personer_3.Mellemnavn,T_Personer_3.Efternavn,T_Personer_4.Fornavn As Farmor, T_Personer_4.Mellemnavn,T_Personer_4.Efternavn,T_Personer_5.Fornavn As Morfar, T_Personer_5.Mellemnavn, T_Personer_5.Efternavn,T_Personer_6.Fornavn As Mormor, T_Personer_6.Mellemnavn, T_Personer_6.Efternavn FROM (((((T_Personer LEFT JOIN T_Personer AS T_Personer_1 ON T_Personer.Fader = T_Personer_1.ID_Personer) LEFT JOIN T_Personer AS T_Personer_2 ON T_Personer.Moder = T_Personer_2.ID_Personer) LEFT JOIN T_Personer AS T_Personer_3 ON T_Personer_1.Fader = T_Personer_3.ID_Personer) LEFT JOIN T_Personer AS T_Personer_4 ON T_Personer_1.Moder = T_Personer_4.ID_Personer) LEFT JOIN T_Personer AS T_Personer_5 ON T_Personer_2.Fader = T_Personer_5.ID_Personer) LEFT JOIN T_Personer AS T_Personer_6 ON T_Personer_2.Moder = T_Personer_6.ID_Personer \" & strWh, Con
Do While Not objRec.EOF
antal=antal+1
objRec.MoveNext
Loop
If antal=1 Then
\'------------------TEST-----------------------------------------------
Dim RS
Set RS=Server.CreateObject(\"ADODB.Recordset\")
RS.Open\"Select T_Personer.notatID From T_Personer\" & strWh, Con -----------LINIE 46 HER--------
if RS(\"notatID\")>0Then
ja=\"<a href=\'../se_person/se.asp?Fornavn=\" & objRec(0) & \"&Mellemnavn=\"& objRec(1) &\"&Efternavn=\" & objRec(2)&\"\'>\" & objRec(0) & \" \" & objRec(1) &\" \" & objRec(2)&\"</a>\"
else
ja=objRec(0) & \" \" & objRec(1) & \" \" & objRec(2)
End if
\'----------------------TEST------------------------------------------
