|
Hi , I'd appreciate to get help on that. I can't seem to have my notify mail sent after my user registrated. Weird enough, the process it just fine since I can see the new user info in my access database... I just don't get why the email is not sent. Syntax error? It's not complicated, User subscribes which in this case is called action = 1....
Thanks in advance..!!!
<!--METADATA TYPE="typelib"
UUID="CD000000-8B95-11D1-82DB-00C04FB1625D"
NAME="CDO for Windows 2000 Library" -->
<!--METADATA TYPE="typelib"
UUID="00000205-0000-0010-8000-00AA006D2EA4"
NAME="ADODB Type Library" -->
<%
Dim action
action = Request.QueryString("action")
If action = 1 Then
Dim objConnection, objRecordset, SQLs, strUserID
Dim strPassword, strFname, strLname, strAddress, strCity, strCountry
Dim strZip, strUserType, strJoinDate, strEducation, strNewsletter, strEmail, strCareer,strUnion,strMalefemale,strExperience
Set objConnection = Server.CreateObject("ADODB.Connection")
Set objRecordset = Server.CreateObject("ADODB.Recordset")
objConnection.Open Application("ConnectionString")
strUserType= 0
strFname=Replace(Request.Form("firstname"), "'", "''")
strLname=Replace(Request.Form("lastname"), "'", "''")
strAddress=(Request.Form("address"))
strCity=(Request.Form("city"))
strZip=(Request.Form("zip"))
strCountry=(Request.Form("country"))
strEmail=(Request.Form("emailaddress"))
strPassword=(Request.Form("password"))
strCareer=(Request.Form("careerlevel"))
strEducation=(Request.Form("education"))
strJoinDate=(Request.Form("joindate"))
strNewsletter=(CInt(Request.Form("newsletter")))
strUnion = (Request.Form("Union"))
strMalefemale = (Request.Form("malefemale"))
strExperience = (Request.Form("experience"))
If strNewsletter <> 1 Then
strNewletter = 0
End If
' ## ERROR CONTROL ##
objConnection.Errors.Clear ' just to be safe, clear out any existing errors
'On Error Resume Next ' then IGNORE errors!
' Put parameters in registration database.
SQLs = "INSERT INTO Users (Email, Fname, Lname, UsrPassword, Address, City, Country, Zip, " & _
"CareerLevel, Education, JoinDate, Newsletter, UserType) "
SQLs = SQLs & "VALUES ("
SQLs = SQLs & "'" & strEmail & "',"
SQLs = SQLs & " '" & strFname & "',"
SQLs = SQLs & " '" & strLname & "',"
SQLs = SQLs & " '" & strPassword & "',"
SQLs = SQLs & " '" & strAddress & "',"
SQLs = SQLs & " '" & strCity & "',"
SQLs = SQLs & " " & strCountry & ","
SQLs = SQLs & " '" & strZip & "',"
SQLs = SQLs & " '" & strCareer & "',"
SQLs = SQLs & " '" & strEducation & "',"
SQLs = SQLs & " '" & strJoinDate & "',"
SQLs = SQLs & " '" & strNewsletter & "',"
SQLs = SQLs & " " & strUserType & ")"
'Response.write SQLs
'Response.end
Application.Lock
objConnection.Execute(SQLs)
Application.Unlock
' ## ERROR CONTROL ##
'On Error GoTo 0 ' turn off the ignoring of errors!
' now see if we got any errors from the insert!
For Each oops In objConnection.Errors
If oops.number = -2147217900 Then
'If oops.number = -2147467259 Then
Session("Session_Message") = "The email address you entered already exists. <br />" & _
"<a href=""../forgotpass.asp"">Forgot password? Click here</a>"
Response.Write "That item already exists in that table!<BR>"
'Create the Query String
Dim strQueryString
strQueryString = "?firstname=" & strFname & "&lastname=" & strLname & "&address=" & strAddress & _
"&city=" & strCity & "&zip=" & strZip & "&emailaddress=" & strEmail
Response.Redirect("../candidate/contactinfo.asp" & strQueryString)
Response.End()
Else
Response.Write "Unexpected error: " & oops.number & " -- " & oops.description
Response.End()
End If
'Next
' The following assigns the new UserID to strUserID
Set objRecordset = objConnection.Execute("SELECT @@IDENTITY") ' Create a recordset and_
' SELECT the new Identity
strUserID = objRecordset(0) ' Store the value of the new identity in variable strUserID
Session("User_ID") = objRecordset("UserID")
Session("User_Type") = objRecordset("UserType")
Session("User_Name") = objRecordset("Fname") & " " & objRecordset("Lname")
Session("UserLoggedIn") = true
Session("User_ID") = strUserID
Session("Login_Name") = ""
objConnection.Close
Set objRecordset = Nothing
LoginUser (strUserID)
Session("Session_Message") = "Welcome " & Session("User_Name")
Session("paid") = 0
'Envoyons un courriel/Let's send the email
dim htmlmessage
dim strSiteURL
strSiteURL = "http://www.mywebsiteurl.com/"
htmlmessage = "<!DOCTYPE HTML PUBLIC ""-//W3C//DTD HTML 4.01 Transitional//EN"">"
htmlmessage = htmlmessage & "<html><head><title>"
htmlmessage = htmlmessage & "Nouveau candidat</title>"
htmlmessage = htmlmessage & "<style type=""text/css"">"
htmlmessage = htmlmessage & "<!--"
htmlmessage = htmlmessage & "Body {font-family: Verdana, Arial, Helvetica, sans-serif; font-size: 12px}"
htmlmessage = htmlmessage & "TD {font-family: Verdana, Arial, Helvetica, sans-serif; font-size: 12px}"
htmlmessage = htmlmessage & "-->"
htmlmessage = htmlmessage & "</style>"
htmlmessage = htmlmessage & "<META HTTP-EQUIV=""Content-Type"" Content=""text-html; charset=Windows-1252"">"
htmlmessage = htmlmessage & "</head>"
htmlmessage = htmlmessage & "<body topmargin=""5"" leftmargin=""5"" bgcolor=""#FFFFFF"" text=""#000000"">"
htmlmessage = htmlmessage & "<b>mywebsiteurl.com</b><hr>"
htmlmessage = htmlmessage & "Welcome to mywebsiteurl.com. Your new account is setup.<hr>"
htmlmessage = htmlmessage & "<table width=""50%"" border=""0"" cellspacing=""0"" cellpadding=""1"">"
htmlmessage = htmlmessage & "<tr>"
htmlmessage = htmlmessage & "<td><b>Email Address: </b>" & strEmail &"</td>"
htmlmessage = htmlmessage & "</tr>"
htmlmessage = htmlmessage & "<tr>"
htmlmessage = htmlmessage & "<td><b>Your Password: </b>"& strPassword &"</td>"
htmlmessage = htmlmessage & "</tr></table>"
htmlmessage = htmlmessage & "<P><a href=""http://" & strSiteURL & """>" & strSiteURL & "</a></P>"
htmlmessage = htmlmessage & "</body></html>"
CDOSendEmail2 htmlmessage, strEmail
Response.Redirect("http://mywebsiteurl/checkemail.html")
If Session("UserLoggedIn") = true Then
Response.Redirect("../candidate/default.asp")
End If
Next
Else If action = 2 Then
Dim strSQL
Set objConnection = Server.CreateObject("ADODB.Connection")
Set objRecordset = Server.CreateObject("ADODB.Recordset")
objConnection.Open Application("ConnectionString")
strSQL = "UPDATE Users SET " & _
"Fname = '" & Replace(Request.Form("firstname"), "'", "''") & "', " & _
"Lname = '" & Replace(Request.Form("lastname"), "'", "''") & "', " & _
"Address = '" & Replace(Request.Form("address"), "'", "''") & "', " & _
"City = '" & Replace(Request.Form("city"), "'", "''") & "', " & _
"Zip = '" & Replace(Request.Form("zip"), "'", "''") & "', " & _
"Country = '" & Replace(Request.Form("country"), "'", "''") & "', " & _
"UsrPassword = '" & Replace(Request.Form("password"), "'", "''") & "', " & _
"CareerLevel = '" & Replace(Request.Form("careerlevel"), "'", "''") & "', " & _
"unionaff = '" & Replace(Request.Form("union"), "'", "''") & "', " & _
"malefemale = '" & Replace(Request.Form("malefemale"), "'", "''") & "', " & _
"experience = '" & Replace(Request.Form("experience"), "'", "''") & "', " & _
"NewsLetter = '" & Cint(Request.Form("newsletter")) & "' " & _
"WHERE UserID = " & session("User_ID") & ""
'Response.write strSQL
'Response.end
' Use the execute method of the connection object the insert the record
objConnection.execute(strSQL)
objConnection.close
set objConnection = nothing
' Confirmation message
Session("Session_Message") = Replace(Session("User_Name"), "''", "'") & " your personal information has been updated."
Response.Redirect "../candidate/default.asp"
END IF
Sub LoginUser (strUserID)
Dim objConnection, objRecordset, SQLs
Set objConnection = Server.CreateObject("ADODB.Connection")
Set objRecordset = Server.CreateObject("ADODB.Recordset")
objConnection.Open Application("ConnectionString")
SQLs=""
SQLs= "SELECT UserID, Email, Fname, Lname, UserType FROM Users WHERE UserID = " & strUserID & ""
Set objRecordset=objConnection.Execute(SQLs)
Session("User_ID") = objRecordset("UserID")
Session("User_Type") = objRecordset("UserType")
Session("User_Name") = Replace(objRecordset("Fname"), "''", "'") & " " & Replace(objRecordset("Lname"), "''", "'")
Session("Login_Name") = objRecordset("Email")
Session("UserLoggedIn") = true
objConnection.Close
Set objRecordset = Nothing
End Sub
Sub CDOSendEmail2(MessageBody, SendTo)
Dim NewMail, objConfig, bSuccess, strErr
bSuccess = False
Set NewMail = Server.CreateObject("CDO.Message")
Set objConfig = Server.CreateObject("CDO.Configuration")
Const cdoSendUsingMethod = "http://schemas.microsoft.com/cdo/configuration/sendusing"
Const cdoSMTPServer = "http://schemas.microsoft.com/cdo/configuration/smtpserver"
Const cdoSMTPServerPort = "http://schemas.microsoft.com/cdo/configuration/smtpserverport"
Const cdoSMTPAuthenticate = "http://schemas.microsoft.com/cdo/configuration/smtpauthenticate"
Const cdoSendUsingPort = 2 'Must use this to use Delivery Notification
Const cdoAnonymous = 0
Const cdoBasic = 1 ' clear text
dim strMailServer
dim strMailServerPort
dim strFromEmail
strMailServer = "relay-hosting.secureserver.net"
strMailServerPort = 25
strFromEmail = "info@mywebsiteurl.com"
'Configuration:
objConfig.Fields(cdoSendUsingMethod) = cdoSendUsingPort
objConfig.Fields(cdoSMTPServer) = strMailServer ' value from DB
objConfig.Fields(cdoSMTPServerPort) = strMailServerPort
objConfig.Fields(cdoSMTPAuthenticate) = cdoAnonymous
'Update configuration
objConfig.Fields.Update
Set NewMail.Configuration = objConfig
NewMail.To = "<" & SendTo & ">" ' value passed from Form
NewMail.From = strFromEmail ' value of From Admin of site from DB
NewMail.Subject = strSubject
NewMail.HTMLBody = MessageBody
On Error Resume Next ' catch errors
NewMail.Send
If Err <> 0 Then ' error occurred
strErr = Err.Description
else
bSuccess = True
End If
if bSuccess = False Then
Response.Write("Error sending mail to " + SendTo + ", message: " + strErr)
Session("Session_Message") = Session("Session_Message") + "<br /> Error sending mail to " + SendTo + ", message: " + strErr + "<br />"
end if
Set NewMail = Nothing
Set objConfig = Nothing
End Sub
End if
%>
La patience est 50% d'un projet web réussi!
|
|
|
|
|
I'm not sure this post fits this board, but ... =\
I'm writting a page that calls a webservice through javascript and, now, I'm getting an error from ScriptResource.axd. I have even tryed rewritting the code causing the problem, but the error is the same.
Error: i is not a function
Line: 5
JS Code
function apagar_utlz_m(id)
{
var tabela = document.getElementById(id);
var tbody = tabela.getElementsByTagName('tbody')[0];
var linhas = tbody.getElementsByTagName('tr');
var j, checked, codigo_nome, ano_pass, obj;
for (j=0 ; j<linhas.length ; j++)
{
obj = linhas[j];
checked = obj.childNodes[0].childNodes[0].checked;
codigo_nome = obj.childNodes[1].childNodes[0].value;
ano_pass = obj.childNodes[2].childNodes[0].value;
if (checked)
{
function Sucesso(r)
{
if (!r) alert('Erro: não foi possível apagar a entrada');
else
{
if (id == 'utilizadores') selectUtilizadores();
else selectM();
}
}
if (id == 'utilizadores') cnc.servidor.deleteUtilizador(codigo_nome, ano_pass, Sucesso, ErroChamada);
else cnc.servidor.deleteM(codigo_nome, ano_pass, Sucesso, ErroChamada);
}
}
}
The WebService methods "deleteUtilizador" and "deleteM" are both called (changes are made to the DB!), but "Sucesso" never runs, so I'm assuming the problem is related to this call.
Can anybody help?
Best regards
Fratelli
|
|
|
|
|
On right clicking on a web Site we get the Option of "Add Reference".If we add some assembly by "Add Reference Diaologue Box", some times the Assembly goes to Web.Config file and some times into the Bin folder.
I am not clear-which assembly go to Config file and which go to Bin Folder.
Dear friend, please help me on this.
|
|
|
|
|
I suspect the difference is that some libraries are already present with an installation of .NET and so can be referenced in the config file.
ASP.NET questions are better asked in the ASP.NET forum.
Christian Graus
Driven to the arms of OSX by Vista.
Read my blog to find out how I've worked around bugs in Microsoft tools and frameworks.
|
|
|
|
|
Hello, Vikash Here.
I have a USB device. To use this device, the manufacturer has provided a .OCX file.
So in windows app, I register my OCX and I can see a control in the ToolBox which I drop on a Form and use the USB device using this Control.
Now this Control works on Events .This USB device is a FingerPrint Reader.
When I place my Finger on the Reader it generates an Event which is Captured by my Windows App(bcoz of OCX Control on the Form) and I get the FingerPrint Data.
Now How Can I Achieve this in VBScript in my Web-Page.
Hope you understand my explaination.
Any Ideas.
|
|
|
|
|
Vikash, were you successful in doing this?
If so please let me know how you did this because I am also facing the same problem.
|
|
|
|
|
hi,
i have dynamic gridtable, in that i have lookup window, i will select the data from the lookup window, even i want to find the data and i have to update the new data, how to do it in lookup window.
please help me.
modified on Thursday, October 8, 2009 6:22 AM
|
|
|
|
|
I can't really follow what you're asking, but either way, yuor starting point needs to be to tell us what you're using, as this is not the ASP.NET forum, I assume it's ASP or PHP, maybe JSP ?
Christian Graus
Driven to the arms of OSX by Vista.
Read my blog to find out how I've worked around bugs in Microsoft tools and frameworks.
|
|
|
|
|
I want to place captcha image on HTML page by using ASP code not ASP.net code.i dont want to make my html page as aspx so i need asp code for that.
can anybody help....
thanks in advance
|
|
|
|
|
|
He is not aksing for ASP.NET Captcha Control !! He is asking for ASP !!! 
|
|
|
|
|
I overlook this.. 
|
|
|
|
|
I m asking for ASP i already have asp.net code but i need asp which i can run on my html page....
|
|
|
|
|
its urgent... i have searched a hell lot
|
|
|
|
|
Placing 'urgent' and similar keywords is a sure way too discourage experts from assisting you.
Vasudevan Deepak Kumar
Personal Homepage
Tech Gossips
The woods are lovely, dark and deep,
But I have promises to keep,
And miles to go before I sleep,
And miles to go before I sleep!
|
|
|
|
|
|
Reply only if u have d answer i dont need google search
|
|
|
|
|
|
i have already gone through this link but that doesnt work for me dats y i m here
|
|
|
|
|
11Developer wrote: dats y i m here
txt speak really sucks.
So, you found some code, can't make it work, and so posted a general, vague question here ? I diagnose PICNIC. problem in chair, not in computer. ASP sucks, if I had to maintain an ASP site, I'd still write new pages in ASP.NET. Either way, if you found code and can't make it work, you need to assume that it works, and that you need help working out how to use it.
Christian Graus
Driven to the arms of OSX by Vista.
Read my blog to find out how I've worked around bugs in Microsoft tools and frameworks.
|
|
|
|
|
If anybody needs to know the solution go [here]
|
|
|
|
|
I wrote a Web application by ASP.NET and C#. I need to change date of my server behind about 1 year ago and after that changing date came back. For example, time is 30/09/2009 and when the program runs, time should be 30/09/2008 and after 3sec time comes back 30/09/2009.
I wrote this rule by ASP.NET and C# and that web application work correctly, but for 5 days, that code can't change date of server, although web application worked correctly and could change date by below codes.
Also these codes work and can change date of server when those are written as WIN application and don't return any error, and those are written as WEB application and run in Visual Studio 2008 don't return any error and works correctly, but when those codes are written as WEB application and run in ISS can't change date of server and return "error: 1314", so I be confused!!!
I will be very glad if somebody helps me.
Thank you very much.
<pre> [DllImport("kernel32.dll", SetLastError = true)]
public static extern int SetLocalTime(ref SystemTime lpSystemTime);
[DllImport("kernel32.dll", SetLastError = true)]
private static extern uint GetLastError();
public struct SystemTime
{
public short wYear;
public short wMonth;
public short wDayOfWeek;
public short wDay;
public short wHour;
public short wMinute;
public short wSecond;
public short wMilliseconds;
}
private void ChangeDate()
{
SystemTime systNew = new SystemTime();
systNew.wDay = (short)dateTime.Day;
systNew.wMonth = (short)dateTime.Month;
systNew.wYear = (short)2008;
systNew.wHour = (short)dateTime.Hour;
systNew.wMinute = (short)dateTime.Minute;
systNew.wSecond = (short)dateTime.Second;
SetLocalTime(ref systNew);
uint lastErrCode = GetLastError();
}</pre>
|
|
|
|
|
Why are you posting same question again and again? You have posted same question yesterday on 3 forums.
|
|
|
|
|
Hi
because someone said me that change my subject without urgent, so correct it only.
|
|
|
|
|
You can modify the previous post title, no need to post a new question just for changing the title.
|
|
|
|
|
General 
News 
Suggestion 
Question 
Bug 
Answer 
Joke 
Praise 
Rant 
Admin 
Submit an article or tip
