vi prego aiuto cn codice....

**massimo17** · 27-11-2004, 12:21

ho un grande problema!
ho una pagina nuova creata da me con questo codice:
<%@LANGUAGE="VBSCRIPT"%>

<%
Dim Recordset1
Dim Recordset1_numRows

Set Recordset1 = Server.CreateObject("ADODB.Recordset")
Recordset1.ActiveConnection = MM_sms_STRING
Recordset1.Source = "SELECT * FROM sms"
Recordset1.CursorType = 0
Recordset1.CursorLocation = 2
Recordset1.LockType = 1
Recordset1.Open()

Recordset1_numRows = 0
%>

<html>
<head>
<title>..:: VERONAVIP.COM ::..</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<script language="JavaScript" type="text/JavaScript">

</script>
<link href="../immagini/css_forum.css" rel="stylesheet" type="text/css">
</head>

<body bgcolor="#B5DBFF">
<div align="center">

<table width="90%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td><div align="center"></div></td>
</tr>
</table>

</p>
</div>
</body>
</html>
<%
Recordset1.Close()
Set Recordset1 = Nothing
%>

PERO' SI ACCEDE ANCHE SENZA ESSERE LOGGATI.
QUESTA E' INVECE UNA PAGINA DA CUI DOVREI TIRAR FUORI IL CODICE DA METTERE NELLA PAGINA SOPRA PER ACCEDERE SOLO LE FATTO IL LOG IN:

<%
if strDBNTUserName = "" then
Err_Msg = "[*]Per giocare devi essere registrato al forum"

Response.Write " <table width=""100%"" border=""0"">" & vbNewLine & _
" <tr>" & vbNewLine & _
" <td><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>" & vbNewLine & _
" " & getCurrentIcon(strIconFolderOpen,"","") & "Tutti i Forum
" & vbNewLine & _
" " & getCurrentIcon(strIconBar,"","") & getCurrentIcon(strIconFolderOpenTopic,"","") & " Giochi</font></td>" & vbNewLine & _
" </tr>" & vbNewLine & _
" </table>" & vbNewLine & _
" <p align=""center""><font face=""" & strDefaultFontFace & """ size=""" & strHeaderFontSize & """ color=""" & strHiLiteFontColor & """>C'è stato un Problema!</font></p>" & vbNewLine & _
" <p align=""center""><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strHiLiteFontColor & """>Devi essere registrato per accedere ai Giochi - Fai Login oppure registrati</font></p>" & vbNewLine & _
" <p align=""center""><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>Torna al Forum</font></p>" & vbNewLine & _
"
" & vbNewLine
WriteFooter
Response.End
else %>
<%
'## Do Cookie stuffs with reload
nRefreshTime = Request.Cookies(strTempCookieType & "Reload")

if Request.form("cookie") = "1" then
if strSetCookieToForum = 1 then
Response.Cookies(strTempCookieType & "Reload").Path = strTempCookieType
end if
Response.Cookies(strTempCookieType & "Reload") = Request.Form("RefreshTime")
Response.Cookies(strTempCookieType & "Reload").expires = strForumTimeAdjust + 365
nRefreshTime = Request.Form("RefreshTime")
end if

if nRefreshTime = "" then
nRefreshTime = 0
end if
ActiveSince = Request.Cookies(strTempCookieType & "ActiveSince")
'## Do Cookie stuffs with show last date
if Request.form("cookie") = "2" then
ActiveSince = Request.Form("ShowSinceDateTime")
if strSetCookieToForum = 1 then
Response.Cookies(strTempCookieType & "ActiveSince").Path = strTempCookieType
end if
Response.Cookies(strTempCookieType & "ActiveSince") = ActiveSince
end if

mypage = request("whichpage")
If mypage = "" then
mypage = 1
end if
mypagesize = request.cookies("paging")("pagesize")
If mypagesize = "" then
mypagesize = 15
end if
%>

<script language="JavaScript">

</script>
<script language="JavaScript">

function openGameWindow(url) {
popupWin = window.open(url,'new_page','width=500,height=500,r esizable=yes')
}
</script>
<script language="JavaScript">

</script>
<tr>
<table border=0 cellpadding=0 cellspacing=0 width="100%">
<tr>
<td>
<table border="0" width="100%" cellspacing="0" cellpadding="0" align="center">
<tr>
<td bgcolor="#B5DBFF">
<table width="80%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td bgcolor="#B5DBFF"><font face=" & strDefaultFontFace & " size=" & strDefaultFontSize & ">
<a href="default.asp">
<% =getCurrentIcon(strIconFolderOpen,"Tutti Forum", align="absmiddle") %>
</a>Tutti Forum

</font>
</td>
</tr>
<tr>
<td bgcolor="<% =strHeadCellColor %>"><a name="Giochi"></a><font face="<% =strDefaultFontFace %>" size="4" color="<% =strHeadFontColor %>" >Giochi</font></td>
</tr>
<tr>
<td bgcolor="<% =strTableBorderColor %>"></td>
</tr>
<tr>
<td bgcolor="<% =strForumCellColor %>" align="center">
<font face="<% =strDefaultFontFace %>" size="<% =strHeadFontSize %>" color="<% =strForumFontColor %>">

Questi sono i Giochi disponibili su
<% =strForumTitle %>

<table border="0" align="center" cellpadding="10" nowrap>
<% '## Forum_SQL - Get Games from DB
Dim my_Conn
strSql = "SELECT " & strTablePrefix & "GAMES.ID"
strSql = strSql & ", " & strTablePrefix & "GAMES.IMAGEURL"
strSql = strSql & ", " & strTablePrefix & "GAMES.NAME"
strSql = strSql & ", " & strTablePrefix & "GAMES.DISPLAY"
strSql = strSql & ", " & strTablePrefix & "GAMES.GAMEURL"
strSql = strSql & " FROM " & strTablePrefix & "GAMES "
strSql = strSql & " WHERE " & strTablePrefix & "GAMES.DISPLAY = '1' "
strSql = strSql & " ORDER BY " & strTablePrefix & "GAMES.NAME ASC;"
set rs = Server.CreateObject("ADODB.Recordset")
rs.cachesize = 20
rs.open strSql, my_Conn, 3
if rs.EOF or rs.BOF then '## No replies found in DB
%>
<tr>
<td bgcolor="<% =strForumFirstCellColor %>" colspan="5">
<font face="<% =strDefaultFontFace %>" color="<% =strForumFontColor %>" size="<% =strDefaultFontSize %>" valign="top">
Non ci sono giochi</font></td>
</tr>
<%
else
rs.movefirst
rs.pagesize = strPageSize
maxpages = cint(rs.pagecount)
intRowCounter = 0
%>
<tr valign="top">
<td>
<table border="0" align="center" cellpadding="8">
<tr>
<%
do until rs.EOF '**
%>

<td bgcolor="<% =strForumCellColor %>" align="center">
<a HREF= JavaScript

penGameWindow('<% =rs("gameurl")%>')>
[img]<% =rs([/img]"
border= 1
hspace= 0
width = 100
height = 100
alt = "<% =rs("name") %>">

<font face="<% =strDefaultFontFace %>" size="<% =strFooterFontSize %>" color="<% =strForumFontColor %>">
<% =rs("name") %></font>
</a>
</td>

<%
rs.MoveNext
intRowCounter = intRowCounter + 1
if (intRowCounter mod 4) = 0 then
%>
</tr>
<tr>
<%
end if
loop
%>
</tr>
</table>
<%
end if
rs.close
set rs = nothing
%>
</td>
</tr>
</table>
</td>
</tr>
</table>
</td>
</tr>
</table>
</td>
</tr>
</table>
<% WriteFooter

sub Paging()
if maxpages > 1 then
if Request.QueryString("whichpage") = "" then
pge = 1
else
pge = Request.QueryString("whichpage")
end if
scriptname = request.servervariables("script_name")
Response.Write("<table border=0 width=100% cellspacing=0 cellpadding=1 align=top><tr>")
for counter = 1 to maxpages
if counter <> cint(pge) then
ref = "<td align=right bgcolor=" & strPageBGColor & "><font face=" & strDefaultFontFace & " size=" & strDefaultFontSize & ">" & "" & widenum(counter) & "<a href='" & scriptname
ref = ref & "?whichpage=" & counter
ref = ref & "&pagesize=" & request.cookies("paging")("pagesize")
if top = "1" then
ref = ref & ">"
ref = ref & "</font><font face='" & strDefaultFontFace & "' "
ref = ref & "color='" & strHeadFontColor & "'"
ref = ref & ">" & counter & "</font></a></td>"
Response.Write ref
else
ref = ref & "'>" & counter & "</font></a></td>"
Response.Write ref
end if
else
Response.Write("<td align=right bgcolor=" & strPageBGColor & "><font face=" & strDefaultFontFace & " size=" & strDefaultFontSize & ">" & "" & widenum(counter) & "" & counter & "</font></td>")
end if
if counter mod 15 = 0 then
Response.Write("</tr><tr>")
end if
next
Response.Write("</tr></table>")
end if
top = "0"
end sub
end if
%>

VI PREGO SE POSSIBILE MI DITE QUALE E' IL CODICE CHE CONTROLLA IL LOGIN?
DEVO METTERLO NELLA MIA PAGINA NUOVA(LA PRIMA IN ALTO)
GRAZIE MILLE

Discussione: vi prego aiuto cn codice....

Strumenti discussione

Ricerca discussione

Visualizza

Visualizzazione discussione

vi prego aiuto cn codice....

Permessi di invio