Archive for the 'Uncategorized' Category

Back in the Blogosphere

February 10th, 2008 | Category: Uncategorized, blog setup

After a long break from blogging. I’ve decided it’s time to get with the program and share some knowledge with the rest of the world. My inspiration comes from all the other wonderful blog’s I’ve been reading. They have provided me with valuable incite and assistance on the development work I’ve been immersed in. So here we go …

No comments

Minimialist Theme

May 21st, 2007 | Category: Uncategorized, good design

I’ve decided to go basic and get rid of all the fancy colors and distractions. In order to simplify. Hope you enjoy the Minimalism

No comments

Old School ASP error trap + ASP CDO email with authentication

April 04th, 2007 | Category: Uncategorized, asp classic

Wow is this old and dusty

Here is the Whole deal:

You pass in the name, email, subject & body

action=test — will alow you too switch to an alernate test config for debuging

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123

 
 
'Option Explicit
On Error Resume Next
 
	Dim strName, strFrom, strSubject, strBody, strAction, SMTPServer, SMTPUser, SMTPpass, mailTo 
 
		strName = ""
		strFrom = ""
		strSubject = "" 
		strBody = "" 
		strAction = ""	
 
	strAction = trim(Request.Querystring("action"))
	strName = trim(Request.Querystring("name"))
	strFrom = trim(Request.Querystring("emailfrom"))
	'strTo = trim(Request.Querystring("emailto"))
	strSubject = trim(Request.Querystring("emailsubject"))
	strBody = trim(Request.Querystring("emailbody"))
 
 
 
if instr(1, strFrom , "@", 1) < 1 or instr(1, strFrom, ".", 1) < 1 or strName = ""   then
 
	'Do some validation error response - dont send email
	'errormessage = "<font color='ff0000' size='3'>Please fill out your name and email address!</font><br><br>"
	Response.Write = "not_valid"
 
else
 
 
	Set cdoConfig = CreateObject("CDO.Configuration")  
 
 
	Const cdoSendUsingPickup = 1 
	Const cdoSendUsingPort = 2 
	Const cdoAnonymous = 0
	' Use basic (clear-text) authentication. 
	Const cdoBasic = 1
	' Use NTLM authentication 
	Const cdoNTLM = 2 'NTLM
 
 
	if strAction = "test" then
 
' test user
 
	 SMTPServer = "mail.yourserver.com" 
	 SMTPUser = "webform@yourserver.com"
	 SMTPpass = "password"
	 mailTo = "user@yourserver.com"
 
 
	else
 
 
	 SMTPServer = "mail.yourserver.com" 
	 SMTPUser = "webform@yourserver.com"
	 SMTPpass = "password"
	 mailTo = "user@yourserver.com"
 
 
	end if
 
 
    With cdoConfig.Fields  
        .Item("http://schemas.microsoft.com/cdo/configuration/sendusing")  = cdoSendUsingPickup
        .Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = SMTPServer 
		.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = cdoBasic
		.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = SMTPUser
		.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = SMTPpass
		.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
		.Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60
        .Update  
    End With  
 
 
 
    Set cdoMessage = CreateObject("CDO.Message")  
 
    With cdoMessage  
        Set .Configuration = cdoConfig  
        .From = SMTPUser 'request.form("youremail")
        .To = mailTo  
        .Subject = "CONTACT YOURDOMAIN.COM" 
 
					message = "Below is the result of your Contact us form, It was submitted on " & formatdatetime(now(),vbLongDate) & " " & vbCrLf & vbCrLf
					message = message & "Name: " & strName & " " & vbCrLf
					message = message & "Email: " & strFrom & " " & vbCrLf
					message = message & "Subject: " & strSubject & " " & vbCrLf
					message = message & "Message: " & strBody & " " & vbCrLf
 
					message = message + "___________________________________________________________" & vbCrLf & vbCrLf
					message = message + "IP Address : " & Request.ServerVariables("Remote_Addr") & vbCrLf
					message = message + "End"
 
 
        .TextBody = message  
        .Send 
    End With 
 
 
 
    Set cdoMessage = Nothing  
    Set cdoConfig = Nothing  
 
 
end if
 
 
 
If err.Number <> 0 Then
  Response.Write "ID = " & "1" & "<p>"
  Response.Write "Number = " & err.Number & "<p>"
  Response.Write "Description = " & err.Description & "<p>"
  Response.Write "Source = " & err.Source
  Response.Write "<BR>"
  err.Clear
else 
 
Response.Write = "OK"
 
End If
No comments

Hello world!

February 10th, 2007 | Category: Uncategorized

Welcome to WordPress. This is your first post. Edit or delete it, then start blogging!

2 comments