Questa è la pagina connection_close.asp
<%
cn.close
Set cn = Nothing
Set rs = Nothing
set cmd = Nothing
%>
Questa è la pagina connection_close.asp
<%
cn.close
Set cn = Nothing
Set rs = Nothing
set cmd = Nothing
%>
Ho fatto cosi' pero' non capisco dov'è questo "Expected 'End'
<%
rsvisa.close
set rsvisa=nothing
case "addpost"
strurl=CStr(request.form("url"))
strMeddelande=Cstr(request.form("meddelande"))
strprivate=Cstr(request.form("private"))
strDatum=Cstr(request.form("datum"))
strip=Request.ServerVariables("REMOTE_ADDR")
strMeddelande=Replace(strMeddelande,"[]","[img]images/glad.gif[/img]")
strMeddelande=Replace(strMeddelande,"[]","[img]images/ledsen.gif[/img]")
strMeddelande=Replace(strMeddelande,"[:V]","[img]images/arg.gif[/img]")
strMeddelande=Replace(strMeddelande,"[]","[img]images/ironi.gif[/img]")
strMeddelande=Replace(strMeddelande,"[]","[img]images/skratt.gif[/img]")
strMeddelande=Replace(strMeddelande,"[:O]","[img]images/oops.gif[/img]")
strMeddelande=Replace(strMeddelande,"[:V:]","[img]images/sur.gif[/img]")
strMeddelande=Replace(strMeddelande,"[8D]","[img]images/cool.gif[/img]")
strMeddelande=Replace(strMeddelande,"'","''")
strMeddelande=Replace(strMeddelande,chr(10),"
")
set rsword = connect.execute("select word from word")
Do While Not rsword.EOF
strMeddelande=Censur(strmeddelande,rsword("word"))
rsword.movenext
Loop
sqlguest = "select * from users where user_id = "& session("user_id")
set rsguest = cn.execute(sqlguest)
if not rsguest.EOF then
lastname = rsguest("lastname")
username = rsguest("username ")
end if
set rsguest = nothing
response.write ("insert into gastbok (namn, ip, url, email, meddelande, status) values('" & lastname & "','" & strip & "','" & strurl & "','" & username & "','" & strMeddelande & "','" & strprivate & "')")
response.end
connect.execute ("insert into gastbok (namn, ip, url, email, meddelande, status) values('" & lastname & "','" & strip & "','" & strurl & "','" & username & "','" & strMeddelande & "','" & strprivate & "')")
%>
Sei dentro ad un SELECT CASE
Dovresti uscire da lì e testare quello che ti ho indicato.
Roby
www.creamweb.it [v. 3.0]
:: Script ASP!
:: Web directory gratuita!
:: Campioni del mondo!
ho tolto la pagina dal cms...
dunque l'errore è questo:
Microsoft VBScript compilation error '800a03f6'
Expected 'End'
/content/guestbook/default_scrittura.asp, line 314
la riga è questa
connect.execute ("insert into gastbok (namn, ip, url, email, meddelande, status) values('" & lastname & "','" & strip & "','" & strurl & "','" & username & "','" & strMeddelande & "','" & strprivate & "')")
Rivediamo lo script completo che stai usando.
Roby
www.creamweb.it [v. 3.0]
:: Script ASP!
:: Web directory gratuita!
:: Campioni del mondo!
questa è la pagina:
table>
<tr>
<td></td>
</tr>
<tr>
<td align="center">
<table class="HomeTable" id="table1">
<tr>
<td class="HomeCenter" width=619>
<table border="0" width="600" cellpadding="2">
<tr>
<td>
<table border="0" width="597" cellpadding="2" style="border-collapse: collapse">
<tr>
<td>
<p style="margin-top: 0; margin-bottom: 0">
<%
Function Censur(strText,strWord)
strText = strText & " "
strWord = Replace(strWord,".","\.")
strSplit = split(strWord,",")
strPattern = "("
for i = 0 to ubound(strSplit)
if i <> ubound(strSplit) then
strPattern = strPattern & strSplit(i) & "|"
else
strPattern = strPattern & strSplit(i)
end if
if i = ubound(strSplit) then
strPattern = strPattern & ").*?[\s]"
end if
next
Set objRegExp = New RegExp
objRegExp.Global = True
objRegExp.IgnoreCase = true
objRegExp.Pattern = strPattern
strText = objRegExp.Replace(strText,"**** ")
Set objRegExp = Nothing
Censur = left(strText,(len(strText)-1))
End Function
%>
<script src="edit.js"></script>
<%
bannip = false
set rsbann = connect.execute("select ip from ip")
Do While Not rsbann.EOF
if Request.ServerVariables("REMOTE_ADDR") = rsbann("ip") then
bannip = true
end if
rsbann.movenext
Loop
if bannip = true then
Response.Redirect("banned.asp")
else
end if
%>
<script language="Javascript">
<!-- hide
function insertsmily(smilyface){
document.write.meddelande.value+=smilyface;
}
// -->
</script>
<%
Response.buffer=True
select case request("action")
case ""
%>
<head>
</head>
<body topmargin="0" leftmargin="0">
<form name="write" method="POST" action="default_scrittura.asp?action=addpost">
<div align="center">
<table width="71%" border="0" cellpadding="0" cellspacing="0" class="ruta" style="border-width:0; ">
<tr>
<td width="14%"></td>
<td>
</td>
</tr>
<tr>
<td><font size="1"><%= homepage %>:</font></td>
<td>
<input name="url" type="text" class="inmatning" value="http://" size="50" style="border: 1px solid #88A0B8; "></td>
</tr>
<tr>
<td></td>
<td>
</td>
</tr>
<tr>
<td><font size="1" face="Verdana"><%= privatemess %>:</font></td>
<td><font color="#FFFFFF" size="1" face="Verdana"><input type="checkbox" name="private" value="private"></font><font size="1" face="Verdana">se
si seleziona questa opzione il messaggio sarà visibile solo al webmaster</font></td>
</tr>
<tr>
<td></td>
<td>
<button title="Bold" class="btn" onClick="makeBold();">[img]bold.gif[/img]</button>
<button title="Italic" class="btn" onClick="makeItalic();">[img]italic.gif[/img]</button>
<button title="Bigger" class="btn" onClick="makeBigger();">[img]big.gif[/img]</button>
<button title="Smaller" class="btn" onClick="makeSmaller();">[img]small.gif[/img]</button>
<button title="Link" class="btn" onClick="createLink();">[img]link.gif[/img]</button>
<button title="Delete format" class="btn" onClick="unFormat();">[img]unformat.gif[/img]</button>
</td>
</tr>
<tr>
<td valign="top"><font size="1"></font>
<table width="85%" border="0" cellspacing="0" cellpadding="4">
<tr>
<td width="35"><a href="Javascript:insertsmily('[]');">
[img]images/glad.gif[/img]</a></td>
<td><a href="Javascript:insertsmily('[:O]');">
[img]images/oops.gif[/img]</a></td>
</tr>
<tr>
<td width="35"><a href="Javascript:insertsmily('[]');">
[img]images/ledsen.gif[/img]</a></td>
<td><a href="Javascript:insertsmily('[:V]');">
[img]images/arg.gif[/img]</a></td>
</tr>
<tr>
<td width="35"><a href="Javascript:insertsmily('[
[img]images/ironi.gif[/img]</a></td>
<td><a href="Javascript:insertsmily('[:V:]');">
[img]images/sur.gif[/img]</a></td>
</tr>
<tr>
<td width="35"><a href="Javascript:insertsmily('[]');">
[img]images/skratt.gif[/img]</a></td>
<td><a href="Javascript:insertsmily('[8D]');">
[img]images/cool.gif[/img]</a></td>
</tr>
</table></td>
<td width="94%">
<font size="1" color="#FFFFFF" face="Verdana"><%= Message %>: </font>
<textarea name="meddelande" cols="72" rows="5" class="inmatning" style="border:1px solid #88A0B8; "></textarea>
</p>
<input name="Submit" type="submit" class="input" value="<%= Post %>" style="color: #000066">
</p></td>
</tr>
</table>
</div>
</form>
<font color="#FFFFFF">
<%
Set rsvisa = Server.CreateObject("ADODB.Recordset")
SQL = "select * from gastbok order by datum desc"
rsvisa.Open SQL, Connect, 3,3
'Number of messages to show per page/ Antal meddelande per sida
rsvisa.pagesize = 10
page = Request.QueryString("page")
If page = "" then page = 1
if rsvisa.EOF then
Response.write noguests
Else
rsvisa.AbsolutePage = page
totalPages = rsvisa.PageCount
Do until rsvisa.EOF or fldcounter = rsvisa.pagesize
If strBGColor = "#ffffff" then strBGColor = "#fafafa" else strBGColor = "#ffffff"
fldcounter = fldcounter + 1
%>
</font>
<div align="center">
<table width="570" border="0" cellpadding="0" cellspacing="0" class="inlagg" style="border: 1px dotted #365E88; ">
<tr>
<td bgcolor="#365E88" height="20"><font color="#FFFFFF"><%= author %>:
<% = rsvisa("namn") %> data:
<% = rsvisa("datum") %> </font> </td>
</tr>
<tr>
<td><hr style="color: #88A0B8" width="450"> </td>
</tr>
<% if rsvisa("status") = "private" then
%>
<tr>
<td><%= privatemess2 %></td>
</tr>
<% else
%>
<tr>
<td><% = rsvisa("meddelande") %></td>
</tr>
<% end if
%>
<% if rsvisa("answer") > "" then
%>
<tr>
<td class="rubrik" style="background-color: #FFFFFF">
<font size="1"><%= answer %><%= rsvisa("answer") %></font></td>
</tr>
<% else
end if%>
<tr>
<td><hr style="color: #88A0B8" width="450"></td>
</tr>
<tr>
<td bgcolor="#FFFFFF"><font size="1">E-mail:
<a href="mailto:<% = rsvisa("email") %>">
<% = rsvisa("email") %>
</a>
<%= Homepage %>:<a href="<% = rsvisa("url") %>" target="_blank">
<% = rsvisa("url") %>
</a>IP: <% = rsvisa("ip") %></font> </td>
</tr>
</table>
</div>
<font color="#FFFFFF">
<%
rsvisa.movenext
loop
End If%>
</font>
<table width="68%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td> <font size="1" color="#FFFFFF">
<%
i = 0
For i = 1 to rsvisa.PageCount
If (Int(i)) = (Int(page)) then
Response.write ""& i &" "
Else
Response.write "<a href=default_scrittura.asp?page="& i &">"& i &"</a> "
End If
Next
If page = 1 then
Response.write "<a href=default_scrittura.asp?page=" & page + 1 &" ></a>"
ElseIf (Int(totalPages)) = (Int(page)) then
Response.write "<a href=default_scrittura.asp?page=" & page - 1 &" ></a>"
Else
Response.write "<a href=default_scrittura.asp?page=" & page - 1 &" ></a>"
Response.write "<a href=default_scrittura.asp?page=" & page + 1 &" ></a>"
End If
%>
</font></td>
</tr>
</table>
<p align="center">
</p>
<%
rsvisa.close
set rsvisa=nothing
case "addpost"
strurl=CStr(request.form("url"))
strMeddelande=Cstr(request.form("meddelande"))
strprivate=Cstr(request.form("private"))
strDatum=Cstr(request.form("datum"))
strip=Request.ServerVariables("REMOTE_ADDR")
strMeddelande=Replace(strMeddelande,"[]","[img]images/glad.gif[/img]")
strMeddelande=Replace(strMeddelande,"[]","[img]images/ledsen.gif[/img]")
strMeddelande=Replace(strMeddelande,"[:V]","[img]images/arg.gif[/img]")
strMeddelande=Replace(strMeddelande,"[
strMeddelande=Replace(strMeddelande,"[]","[img]images/skratt.gif[/img]")
strMeddelande=Replace(strMeddelande,"[:O]","[img]images/oops.gif[/img]")
strMeddelande=Replace(strMeddelande,"[:V:]","[img]images/sur.gif[/img]")
strMeddelande=Replace(strMeddelande,"[8D]","[img]images/cool.gif[/img]")
strMeddelande=Replace(strMeddelande,"'","''")
strMeddelande=Replace(strMeddelande,chr(10),"
")
set rsword = connect.execute("select word from word")
Do While Not rsword.EOF
strMeddelande=Censur(strmeddelande,rsword("word"))
rsword.movenext
Loop
sqlguest = "select * from users where user_id = "& session("user_id")
set rsguest = cn.execute(sqlguest)
if not rsguest.EOF then
lastname = rsguest("lastname")
username = rsguest("username ")
end if
set rsguest = nothing
response.write ("insert into gastbok (namn, ip, url, email, meddelande, status) values('" & lastname & "','" & strip & "','" & strurl & "','" & username & "','" & strMeddelande & "','" & strprivate & "')")
response.end
connect.execute ("insert into gastbok (namn, ip, url, email, meddelande, status) values('" & lastname & "','" & strip & "','" & strurl & "','" & username & "','" & strMeddelande & "','" & strprivate & "')")
%></td>
</tr>
</table>
<table border="0" width="100%" cellspacing="1" style="border-collapse: collapse">
<tr>
<td>
</td>
<td>
</td>
</tr>
</table>
</td>
</tr>
</table>
<table border="0" width="570" cellpadding="2">
<tr>
<td>
<hr width="593">
<p style="margin-top: 0; margin-bottom: 0">
</td>
</tr>
</table>
</td>
<td class="HomeRight" width=189 align=right style="border:0px solid #365E88; padding-right: 5px; padding-left: 5px" bgcolor="#FFFFFF">
<p style="margin-top: 0; margin-bottom: 0">
</td>
</tr>
<tr>
<td colSpan="2" style="border-left-width: 1px; border-right-width: 1px; border-top-width: 1px; border-top-style:solid; padding-bottom:15px">
</td>
</tr>
<tr>
<td class="HomeBottom" colSpan="2">
<table style="BORDER-RIGHT: 0px; PADDING-RIGHT: 0px; BORDER-TOP: 0px; PADDING-LEFT: 0px; PADDING-BOTTOM: 0px; BORDER-LEFT: 0px; PADDING-TOP: 0px; BORDER-BOTTOM: 0px" cellSpacing="0" cellPadding="0" width="100%" id="table4">
<tr>
<td style="PADDING-RIGHT: 0px; PADDING-LEFT: 0px; PADDING-BOTTOM: 0px; PADDING-TOP: 0px">
</td>
<td style="PADDING-RIGHT: 0px; PADDING-LEFT: 0px; PADDING-BOTTOM: 0px; PADDING-TOP: 0px">
</td>
<td style="PADDING-RIGHT: 0px; PADDING-LEFT: 0px; PADDING-BOTTOM: 0px; PADDING-TOP: 0px">
</td>
</tr>
<tr>
<td colspan=3 style="border-left-width: 1px; border-right-width: 1px; border-top-width: 1px; border-bottom-style: solid; border-bottom-width: 1px; padding-bottom: 10px">
</td>
</tr>
<tr>
<td style="PADDING-RIGHT: 0px; PADDING-LEFT: 0px; PADDING-BOTTOM: 0px; PADDING-TOP: 0px">
</td>
<td style="PADDING-RIGHT: 0px; PADDING-LEFT: 0px; PADDING-BOTTOM: 0px; PADDING-TOP: 0px">
</td>
<td style="PADDING-RIGHT: 0px; PADDING-LEFT: 0px; PADDING-BOTTOM: 0px; PADDING-TOP: 0px">
</td>
</tr>
</table>
</td>
</tr>
</table>
</td>
</tr>
</table>
Se lasci questo
select case request("action")
case ""
siamo da capo per fare un po' di debug... Toglili a richiama la pagina senza.
Roby
www.creamweb.it [v. 3.0]
:: Script ASP!
:: Web directory gratuita!
:: Campioni del mondo!
Dunque.
Ho tolto le parti di codice che mi hai suggerito.
Il guestbook appare con tanto di form per la scrittura del messaggio.
sotto a tutti i post pero' il seguente errore
Microsoft JET Database Engine error '80040e14'
Syntax error (missing operator) in query expression 'user_id ='.
/content/guestbook/default_scrittura.asp, line 296
Io ti ringrazio per la pazienza...
Questa l'attuale situazione:
<table>
<tr>
<td></td>
</tr>
<tr>
<td align="center">
<table class="HomeTable" id="table1">
<tr>
<td class="HomeCenter" width=619>
<table border="0" width="600" cellpadding="2">
<tr>
<td>
<table border="0" width="597" cellpadding="2" style="border-collapse: collapse">
<tr>
<td>
<p style="margin-top: 0; margin-bottom: 0">
<%
Function Censur(strText,strWord)
strText = strText & " "
strWord = Replace(strWord,".","\.")
strSplit = split(strWord,",")
strPattern = "("
for i = 0 to ubound(strSplit)
if i <> ubound(strSplit) then
strPattern = strPattern & strSplit(i) & "|"
else
strPattern = strPattern & strSplit(i)
end if
if i = ubound(strSplit) then
strPattern = strPattern & ").*?[\s]"
end if
next
Set objRegExp = New RegExp
objRegExp.Global = True
objRegExp.IgnoreCase = true
objRegExp.Pattern = strPattern
strText = objRegExp.Replace(strText,"**** ")
Set objRegExp = Nothing
Censur = left(strText,(len(strText)-1))
End Function
%>
<script src="edit.js"></script>
<%
bannip = false
set rsbann = connect.execute("select ip from ip")
Do While Not rsbann.EOF
if Request.ServerVariables("REMOTE_ADDR") = rsbann("ip") then
bannip = true
end if
rsbann.movenext
Loop
if bannip = true then
Response.Redirect("banned.asp")
else
end if
%>
<script language="Javascript">
<!-- hide
function insertsmily(smilyface){
document.write.meddelande.value+=smilyface;
}
// -->
</script>
<head>
</head>
<body topmargin="0" leftmargin="0">
<form name="write" method="POST" action="default_scrittura.asp?action=addpost">
<div align="center">
<table width="71%" border="0" cellpadding="0" cellspacing="0" class="ruta" style="border-width:0; ">
<tr>
<td width="14%"></td>
<td>
</td>
</tr>
<tr>
<td><font size="1"><%= homepage %>:</font></td>
<td>
<input name="url" type="text" class="inmatning" value="http://" size="50" style="border: 1px solid #88A0B8; "></td>
</tr>
<tr>
<td></td>
<td>
</td>
</tr>
<tr>
<td><font size="1" face="Verdana"><%= privatemess %>:</font></td>
<td><font color="#FFFFFF" size="1" face="Verdana"><input type="checkbox" name="private" value="private"></font><font size="1" face="Verdana">se
si seleziona questa opzione il messaggio sarà visibile solo al webmaster</font></td>
</tr>
<tr>
<td></td>
<td>
<button title="Bold" class="btn" onClick="makeBold();">[img]bold.gif[/img]</button>
<button title="Italic" class="btn" onClick="makeItalic();">[img]italic.gif[/img]</button>
<button title="Bigger" class="btn" onClick="makeBigger();">[img]big.gif[/img]</button>
<button title="Smaller" class="btn" onClick="makeSmaller();">[img]small.gif[/img]</button>
<button title="Link" class="btn" onClick="createLink();">[img]link.gif[/img]</button>
<button title="Delete format" class="btn" onClick="unFormat();">[img]unformat.gif[/img]</button>
</td>
</tr>
<tr>
<td valign="top"><font size="1"></font>
<table width="85%" border="0" cellspacing="0" cellpadding="4">
<tr>
<td width="35"><a href="Javascript:insertsmily('[
[img]images/glad.gif[/img]</a></td>
<td><a href="Javascript:insertsmily('[:O]');">
[img]images/oops.gif[/img]</a></td>
</tr>
<tr>
<td width="35"><a href="Javascript:insertsmily('[
[img]images/ledsen.gif[/img]</a></td>
<td><a href="Javascript:insertsmily('[:V]');">
[img]images/arg.gif[/img]</a></td>
</tr>
<tr>
<td width="35"><a href="Javascript:insertsmily('[
[img]images/ironi.gif[/img]</a></td>
<td><a href="Javascript:insertsmily('[:V:]');">
[img]images/sur.gif[/img]</a></td>
</tr>
<tr>
<td width="35"><a href="Javascript:insertsmily('[
[img]images/skratt.gif[/img]</a></td>
<td><a href="Javascript:insertsmily('[8D]');">
[img]images/cool.gif[/img]</a></td>
</tr>
</table></td>
<td width="94%">
<font size="1" color="#FFFFFF" face="Verdana"><%= Message %>: </font>
<textarea name="meddelande" cols="72" rows="5" class="inmatning" style="border:1px solid #88A0B8; "></textarea>
</p>
<input name="Submit" type="submit" class="input" value="<%= Post %>" style="color: #000066">
</p></td>
</tr>
</table>
</div>
</form>
<font color="#FFFFFF">
<%
Set rsvisa = Server.CreateObject("ADODB.Recordset")
SQL = "select * from gastbok order by datum desc"
rsvisa.Open SQL, Connect, 3,3
'Number of messages to show per page/ Antal meddelande per sida
rsvisa.pagesize = 10
page = Request.QueryString("page")
If page = "" then page = 1
if rsvisa.EOF then
Response.write noguests
Else
rsvisa.AbsolutePage = page
totalPages = rsvisa.PageCount
Do until rsvisa.EOF or fldcounter = rsvisa.pagesize
If strBGColor = "#ffffff" then strBGColor = "#fafafa" else strBGColor = "#ffffff"
fldcounter = fldcounter + 1
%>
</font>
<div align="center">
<table width="570" border="0" cellpadding="0" cellspacing="0" class="inlagg" style="border: 1px dotted #365E88; ">
<tr>
<td bgcolor="#365E88" height="20"><font color="#FFFFFF"><%= author %>:
<% = rsvisa("namn") %> data:
<% = rsvisa("datum") %> </font> </td>
</tr>
<tr>
<td><hr style="color: #88A0B8" width="450"> </td>
</tr>
<% if rsvisa("status") = "private" then
%>
<tr>
<td><%= privatemess2 %></td>
</tr>
<% else
%>
<tr>
<td><% = rsvisa("meddelande") %></td>
</tr>
<% end if
%>
<% if rsvisa("answer") > "" then
%>
<tr>
<td class="rubrik" style="background-color: #FFFFFF">
<font size="1"><%= answer %><%= rsvisa("answer") %></font></td>
</tr>
<% else
end if%>
<tr>
<td><hr style="color: #88A0B8" width="450"></td>
</tr>
<tr>
<td bgcolor="#FFFFFF"><font size="1">E-mail:
<a href="mailto:<% = rsvisa("email") %>">
<% = rsvisa("email") %>
</a>
<%= Homepage %>:<a href="<% = rsvisa("url") %>" target="_blank">
<% = rsvisa("url") %>
</a>IP: <% = rsvisa("ip") %></font> </td>
</tr>
</table>
</div>
<font color="#FFFFFF">
<%
rsvisa.movenext
loop
End If%>
</font>
<table width="68%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td> <font size="1" color="#FFFFFF">
<%
i = 0
For i = 1 to rsvisa.PageCount
If (Int(i)) = (Int(page)) then
Response.write ""& i &" "
Else
Response.write "<a href=default_scrittura.asp?page="& i &">"& i &"</a> "
End If
Next
If page = 1 then
Response.write "<a href=default_scrittura.asp?page=" & page + 1 &" ></a>"
ElseIf (Int(totalPages)) = (Int(page)) then
Response.write "<a href=default_scrittura.asp?page=" & page - 1 &" ></a>"
Else
Response.write "<a href=default_scrittura.asp?page=" & page - 1 &" ></a>"
Response.write "<a href=default_scrittura.asp?page=" & page + 1 &" ></a>"
End If
%>
</font></td>
</tr>
</table>
<p align="center">
</p>
<%
rsvisa.close
set rsvisa=nothing
strurl=CStr(request.form("url"))
strMeddelande=Cstr(request.form("meddelande"))
strprivate=Cstr(request.form("private"))
strDatum=Cstr(request.form("datum"))
strip=Request.ServerVariables("REMOTE_ADDR")
strMeddelande=Replace(strMeddelande,"[]","[img]images/glad.gif[/img]")
strMeddelande=Replace(strMeddelande,"[]","[img]images/ledsen.gif[/img]")
strMeddelande=Replace(strMeddelande,"[:V]","[img]images/arg.gif[/img]")
strMeddelande=Replace(strMeddelande,"[
strMeddelande=Replace(strMeddelande,"[]","[img]images/skratt.gif[/img]")
strMeddelande=Replace(strMeddelande,"[:O]","[img]images/oops.gif[/img]")
strMeddelande=Replace(strMeddelande,"[:V:]","[img]images/sur.gif[/img]")
strMeddelande=Replace(strMeddelande,"[8D]","[img]images/cool.gif[/img]")
strMeddelande=Replace(strMeddelande,"'","''")
strMeddelande=Replace(strMeddelande,chr(10),"
")
set rsword = connect.execute("select word from word")
Do While Not rsword.EOF
strMeddelande=Censur(strmeddelande,rsword("word"))
rsword.movenext
Loop
sqlguest = "select * from users where user_id = "& session("user_id")
set rsguest = cn.execute(sqlguest)
if not rsguest.EOF then
lastname = rsguest("lastname")
username = rsguest("username")
end if
set rsguest = nothing
response.write ("insert into gastbok (namn, ip, url, email, meddelande, status) values('" & lastname & "','" & strip & "','" & strurl & "','" & username & "','" & strMeddelande & "','" & strprivate & "')")
response.end
connect.execute ("insert into gastbok (namn, ip, url, email, meddelande, status) values('" & lastname & "','" & strip & "','" & strurl & "','" & username & "','" & strMeddelande & "','" & strprivate & "')")
%>
E' scaduta la sessione...
Roby
www.creamweb.it [v. 3.0]
:: Script ASP!
:: Web directory gratuita!
:: Campioni del mondo!
Permessi di invio
Rispondi quotando