Form mail

[Roby_72]

La registrazione sembra funzionare ma la username a cosa corrisponde?

Roby

[mobis73]

al nome fantasquadra

le stringhe





possono contenere la patch assoluta

es.




in modo da inserire la pagina riservata ovunque e nn per forza nella directory di quei deu file asp?

[Roby_72]

Usa il virtual:

Parte dalla root.


Roby

[mobis73]

Microsoft JET Database Engine error '80004005'

'D:\Inetpub\webs\mdb-database\utenti.mdb' is not a valid path. Make sure that the path name is spelled correctly and that you are connected to the server on which the file resides.

/registrazione/inc_common.asp, line 51

[Roby_72]

Ma sul server o in locale?

Roby

[mobis73]

sul server

http://win.fmc2000.net/riservata.asp

[Roby_72]

E cosa ci sarà mai scritto nella inc_common.asp?

Roby

[mobis73]

ho modifictaO IL contenuto

'Change this value to the path of the database
strDataBasePath = "mdb-database/users.mdb"

ma nulla...

[Roby_72]

Voglio vedere TUTTA la inc_common.asp, non mezza riga!

Roby

[mobis73]

<%
If isCommonCreated <> True Then
'Set the script timeout in seconds
Server.ScriptTimeout = 90

'Set Dimension Variables
Dim strDataBasePath 'Holds the path to the database
Dim cString 'Holds the connection string
Dim adoCon 'Holds the ado connection
Dim strSQL 'Holds SQL string

'Set the variable to hold an ADO connection
Set adoCon = Server.CreateObject("ADODB.Connection")

'------------------------------------------------------------------------------------
'Change this value to the path of the database
strDataBasePath = "mdb-database/users.mdb"
'------------------------------------------------------------------------------------

'Connection string for the database
'If the following line does not work comment it out with a ' at the start of the line and uncomment another string
cString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(strDataBasePath)

'Uncomment this connection string if you are using Access Database 2000 or 2002
'cString = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath(strDataBasePath)

'Uncomment this connection string if you are using a DSN (note: DSN is slower than the above connection strings)
'cString = "DSN=NAME_OF_DSN"
'Replace the NAME_OF_DSN with the DSN

adoCon.Open cString

'Request the users details

'Set the variable to the value in the users cookie
str_userscode = Request.Cookies("Login")("userCode")

'If the users code is not empty then
IF str_userscode <> "" THEN
'Create a new record set
Set rsUserLog = Server.CreateObject("ADODB.RecordSet")

'Set the new sql string
StrSql="SELECT * FROM tbl_authors WHERE code='" & str_userscode & "';"

'Open the recordset and execute the sql
rsUserLog.open StrSql,cString

'If there is no record matching the users cookie details then set the vairbales to empty
If rsUserLog.EOF Then
Response.cookies("Login")("userCode") = ""
'If there is a record to match then
Else
'Set the database values to variables
str_users_name = rsUserLog("name")
str_users_password = rsUserLog("pass")
str_users_fullname = rsUserLog("fullname")
str_users_email = rsUserLog("email")
str_users_address = rsUserLog("address")
str_users_phone = rsUserLog("phone")
str_users_city = rsUserLog("city")
str_users_state = rsUserLog("state")
str_users_zip = rsUserLog("zip")
str_users_package = rsUserLog("package")
str_users_authority = rsUserLog("authority")
str_users_date = rsUserLog("signupdate")
str_users_code = rsUserLog("code")
str_users_status = rsUserLog("status")
str_users_projectname = rsUserLog("projectname")
str_users_projecturl = rsUserLog("projecturl")
str_users_suspensionreason = rsUserLog("suspensionreason")
End If

'Close and clean up
rsUserLog.Close
set rsUserLog = Nothing

'If users code is empty then user is a Guest
Else
Response.cookies("Login")("userCode") = ""
End If

'--------------------------------------------------------------------------------------------
'This section finds all information about the style of the webpage so it can be displayed.

'Create a new record set
set rsPageAttributes = Server.CreateObject("ADODB.RecordSet")

'Set the new sql string
pageSql = "SELECT * FROM tbl_admin"

'Open the recordset and execute the sql
rsPageAttributes.open pageSql,cString

adminEmail = rsPageAttributes("adminEmail")
bgColor = rsPageAttributes("bgColor")
tableColor = rsPageAttributes("tableColor")
menuColor = rsPageAttributes("menuColor")
fontColor = rsPageAttributes("fontColor")
fontFace = rsPageAttributes("fontFace")
fontSize = rsPageAttributes("fontSize")
fontWeight = rsPageAttributes("fontWeight")
aLinkColor = rsPageAttributes("aLinkColor")
aLinkUnderline = rsPageAttributes("aLinkUnderline")
aLinkWeight = rsPageAttributes("aLinkWeight")
aHoverColor = rsPageAttributes("aHoverColor")
aHoverUnderline = rsPageAttributes("aHoverUnderline")
aHoverWeight = rsPageAttributes("aHoverWeight")
menuLinkColor = rsPageAttributes("menuLinkColor")
menuLinkHoverColor = rsPageAttributes("menuLinkHoverColor")
pageTitle = rsPageAttributes("siteTitle")
homePage = rsPageAttributes("homePage")
mailServer = rsPageAttributes("mailHost")
mailType = rsPageAttributes("mailType")
sendConfEmail = rsPageAttributes("sendConfEmail")
errorColor = rsPageAttributes("errorColor")

'Close and clean up
rsPageAttributes.Close
set rsPageAttributes = Nothing

'--------------------------------------------------------------------------------------------
Else
Dim isCommonCreated
isCommonCreated = True
End If
'--------------------------------------------------------------------------------------------
'Function to print header logo
Function printLogo
'Create a new record set
set rsPrintLogo = server.createobject("ADODB.RecordSet")

'Set the new sql string
logoSql = "SELECT * FROM tbl_admin"

'Open the recordset and execute the sql
rsPrintLogo.open logoSql,cString

binaryLogo = rsPrintLogo("headerLogo")

'Close and clean up
rsPrintLogo.Close
Set rsPrintLogo = Nothing
printLogo = rsPrintLogo
End Function
'--------------------------------------------------------------------------------------------

'--------------------------------------------------------------------------------------------
'Function to return the state of adoCon in a string value
Function GetState(intState)
Select Case intState
Case 0
GetState = "adStateClosed"
Case 1
GetState = "adStateOpen"
End Select
'Syntax: GetState(adoCon.state)
End Function
'--------------------------------------------------------------------------------------------
%>