Problemer med ASP efter flytning
Efter at have flyttet hotel til One.com virker mit ASP script ikke mere. Jeg kan sige at jeg bestemt ikke er haj til dette, og bare forsøger at få en side til at fungerer for nogen andre.Jeg får denne fejlmeddelelse:
Error Type:
ADODB.Recordset.1 (0x80004005)
SQLState: S1T00 Native Error Code: 1045 [MySQL][ODBC 3.51 Driver]Access denied for user 'XXX'@'localhost' (using password: YES)
/www/event.asp, line 61
Linien i den pågældende fil er blank:
Dim objMail ' Email object
Dim strFromEmail, strToEmail ' Email addresses
Dim strSubject, strBody ' Message
Dim bValidInput ' A boolean indicating valid parameters
Dim rstDBEdit
' Read in and set the initial values of our message parameters
IF Request.Form.Count <> 0 THEN
strEmail = LCase(Trim(Request.Form("email")))
strName = LCase(Trim(Request.Form("name")))
strTelefon = LCase(Trim(Request.Form("telefon")))
strGuests = LCase(Trim(Request.Form("guests")))
strAccept = LCase(Trim(Request.Form("accept")))
Else
strEmail = ""
strName = ""
strTelefon = ""
END IF
strEvent = ""
strSubject = "Du er nu på gæstelisten til we trefoil music"
strBody = "Du og dine gæster står nu på gæstelisten. Vi Glæder os til at se dig"
' Quick validation just to make sure our parameters are somewhat valid
IF Request.Form("email") <> "" AND Request.Form("name") <> "" AND Request.Form("telefon") <> "" THEN
strSQL = "SELECT * FROM trendtalk_event WHERE id=0"
Set rstDBEdit = Server.CreateObject("ADODB.Recordset")
rstDBEdit.Open strSQL, MYSQL_CON, 1, 2, 1 ' adOpenKeyset, adLockOptimistic, adCmdText
rstDBEdit.AddNew
rstDBEdit.Fields("email").Value = Trim(strEmail)
rstDBEdit.Fields("name").Value = Trim(strName)
rstDBEdit.Fields("telefon").Value = Trim(strTelefon)
'rstDBEdit.Fields("guests").Value = Trim(strGuests)
rstDBEdit.Fields("event").Value = Trim(strEvent)
rstDBEdit.Fields("accept").Value = Trim(strAccept)
rstDBEdit.Fields("dato").Value = Now()
rstDBEdit.Update
rstDBEdit.Close
Set rstDBEdit = Nothing
