%Response.Buffer = True If Request.Querystring("mess") = "fel" Then mess = "alert('Fel lösenord eller adminnamn!');return true;" End If If Request.Querystring("mess") = "bort" Then mess = "alert('Posten borttagen!');return true;" End If If Request.Querystring("mess") = "andra" Then mess = "alert('Posten ändrad!');return true;" End If%>
|
<%Function FixaTecken(str)
FixaTecken = Replace(Trim(str),"'","''")
End function
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & db
If Request.QueryString("do") = "" Then%>
Hemsidans namn |
|
Kategori |
Visa länken |
" target="_blank"><%=RecSet("namn")%> |
| <%=Kat%> |
Ja " value="ja" <%If RecSet("visa") = True Then Response.Write "checked"%>>/" value="nej" <%If RecSet("visa") = False Then Response.Write "checked"%>>
Nej |
"> ')"> |
|
| |
<%If Sidor <> 1 Then
For Sid = 1 To Sidor
If (Int(Sid)) = (Int(sida)) Then%><%=Sid%><%Else%> <%=Sid%> <%End If%>
<%Next%>
|
|
Inga kategorier inlagda | |
<%=RS("namn")%> | "> ');"> |