<%
se=request("se")
if se="" then
se=username
end if
%> <%=se%>'s
Gästbok
<%
SQL="SELECT * FROM gb WHERE till='" & se & "' ORDER BY skickat DESC"
Conn.execute(SQL)
Set Rs=Server.CreateObject("ADODB.Recordset")
Rs.open SQL, Conn, 3,3
if NOT Rs.EOF Then
Do until rs.eof
sql = "SELECT * FROM reg WHERE lcase(username) = '"& lcase(rs("fran")) &"'"
set rs2 = conn.execute(sql)
%>
|
|
 " width="50" height="50"> |
|
|
<%
Response.Write Strang(rs("message"))
%> |
|
<%
if se = username OR username = "Jonas" then
response.write("ta bort" & _
" svara")
else if rs("fran")=username then
response.write("ta bort")
end if
end if
%> <%
if username=test then
response.write("ta bort")
end if
%>
|
 |
<%
if se=username then
read=request("read")
rs("read")=read
rs.update
end if
rs.movenext
loop
else
response.write("" & vbcrlf & "| " & vbcrlf & _
"" & _
se & " har inga gästboksinlägg" & vbcrlf & " | " & vbcrlf & " ")
end if
%>
<%
Function Strang(ByVal OriginalString)
OriginalString = "" & OriginalString
intMaxLength = 45
arrString = Split(OriginalString, " ")
For intIndex = 0 To UBound(arrString)
If Len(arrString(intIndex)) > intMaxLength Then
intSIndex = 0
While intSIndex < (Len(arrString(intIndex)) / intMaxLength)
splittOrd = splittOrd & Mid(arrString(intIndex), (1 + intSIndex * intMaxLength), intMaxLength) & "
"
intSIndex = intSIndex + 1
Wend
arrString(intIndex) = splittOrd
End If
strNewString = strNewString & arrString(intIndex) & " "
Next
Strang = strNewString
End Function
%> |
|
|
|
