<%
KatID = CleanID(Request.QueryString("KatID"))
If Not Isnumeric(KatID) = False Then
sSQL = Empty
sSQL = sSQL & " SELECT * FROM Referanskategori"
sSQL = sSQL & " WHERE ID = " & KatID
Set Rec = Conn.Execute(sSQL)
If Not Rec.EOF Then
Baslik = Rec("KatAD") & " "
Else
Baslik = "REFERANSLAR"
End If
Set Rec = Nothing
Else
Baslik = "REFERANSLAR "
End IF
%>
| |
<%=Baslik%> |
| |
|
<%
KatID = CleanID(Request.QueryString("KatID"))
If Not Isnumeric(KatID) = False Then
sSQL = Empty
sSQL = sSQL & " SELECT * FROM Referans"
sSQL = sSQL & " WHERE Tur = " & KatID
Set Rec = Conn.Execute(sSQL)
IF Not Rec.EOF Then
Do While Not Rec.EOF
%>
| " target="_blank" style="color:000000">»<%=Rec("MetinBAS")%> |
|
|
<%
Rec.MoveNext
Loop
End IF
Set Rec = Nothing
End If
%>
|
|
|