'## Forum_SQL
		strSql = "INSERT INTO " & strMemberTablePrefix & "MEMBERS "
		strSql = strSql & "(M_NAME"
		if strAuthType = "nt" then
			strSql = strSql & ", M_USERNAME"
		end if

strSql = strSql & ", M_HOBBIES"
strsql = strsql & ", M_LNEWS" 
strSql = strSql & ", M_QUOTE"  

'########################### PM NEW MEMBER #####################
		strSql = strSql & ", M_PMEMAIL"
'########################### PM NEW MEMBER #####################

		strSql = strSql & ", M_HOBBIES"
		strsql = strsql & ", M_LNEWS" 
		strSql = strSql & ", M_QUOTE"  
'########################### PM NEW MEMBER #####################
		strSql = strSql & ", M_PMEMAIL"
'########################### PM NEW MEMBER #####################

if strQuote = "1" then
			strSql = strSql & ", '" & ChkString(Request.Form("Quote"),"message") & "'"
		else 
			strSql = strSql & ", ''" 
		end if

'########################### PM NEW MEMBER #####################
			strSql = strsql & ", '1'" 
'########################### PM NEW MEMBER #####################

if strQuote = "1" then
			strSql = strSql & ", '" & ChkString(Request.Form("Quote"),"message") & "'"
		else 
			strSql = strSql & ", ''" 
		end if
'########################### PM NEW MEMBER #####################
			strSql = strsql & ", '1'" 
'########################### PM NEW MEMBER #####################	

		my_Conn.Execute (strSql)
		
		docount
		
		regHomepage = ""

'########################### PM NEW MEMBER #####################
		Dim objDict
		Set objDict = Server.CreateObject("Scripting.Dictionary")
		set objRec = my_Conn.execute("SELECT * FROM " & strTablePrefix & "MODS WHERE M_NAME = 'NewMemPM'")

		while not objRec.EOF 
		  objDict.Add objRec.Fields.Item("m_code").Value, objRec.Fields.Item("m_value").Value
		  objRec.moveNext
		wend 

		if Request.Form("Method_Type") = "Write_Configuration" then 
			Err_Msg = ""
		
			if Err_Msg = "" then

		  objDict.Item("Admin") = Request.Form("strAdmin")
		  objDict.Item("Subject") = Request.Form("strSubject")
		  objDict.Item("Message") = Request.Form("strMessage")
		  objDict.Item("OnOff") = Request.Form("strOnOff")
				a = objDict.Keys
				b = objDict.Items
   				For i = 0 To objDict.Count -1 ' Iterate the array.
				strSql = "UPDATE " & strTablePrefix & "MODS "
				strSql = strSql & " SET M_VALUE ='" & b(i) & "'"
				strSQL = strSql & " WHERE M_NAME = 'Attachment' AND M_CODE = '" & a(i) & "' "
				'response.write strSQL
				my_Conn.Execute (strSql)
   				Next

				Application(strCookieURL & "ConfigLoaded") = ""
	%>

	<% end if %>
	<%			strSql = "SELECT * FROM " & strTablePrefix & "CONFIG_NEWMEMPM " %>
	<% end if

	if objDict.Item("OnOff") = "1" then
	strSql = "INSERT INTO " & strTablePrefix & "PM "
	strSql = strSql & "(M_SUBJECT"
	strSql = strSql & ", M_FROM"
	strSql = strSql & ", M_TO"
	strSql = strSql & ", M_SENT"
	strSql = strSql & ", M_MESSAGE"
	strSql = strSql & ", M_READ"
	strSql = strSql & ", M_MAIL"
	strSql = strSql & ", M_OUTBOX"
	strSql = strSql & ") "
	strSql = strSql & " VALUES ("
	strSql = strSql & "'" & objDict.Item("Subject") & "'"
	strSql = strSql & ", " & "'" & GetMemberID( objDict.Item("Admin")) & "'"
	strSql = strSql & ", " & "'" & GetMemberID( Request.Form("Name")) & "'"
	strSql = strSql & ", " & "'" & DateToStr(strForumTimeAdjust) & "'"
	strSql = strSql & ", " & "'" & objDict.Item("Message") & "'"
	strSql = strSql & ", " & "'0'"
	strSql = strSql & ", " & "'0'"
	strSql = strSql & ", " & 1 & ")"

	my_Conn.Execute (strSql)
	end if
'########################### PM NEW MEMBER #####################

quote:

---

Not to sound like an ass, but if you go around being all demanding not too many people will want to help you out.

---

quote:

---

PS: Shep, around here politness goes a long way, not demands or smart comebacks. Just a word to the wise.

---

quote:

---

Okay Shep, forget it and I will too. You're right, the written word is difficult, I've had that problem too and yes there are terrific people here, as a matter of fact, I can't think of any that aren't. Lets wait and see what kind of help we get.

For you, try looking at your code and make sure if you used a " mark in code you use it twice as in ""Welcome"" otherwise it looks like and end statement.
[edit] spelling (very poor spelling)
Edited by - ribkick on 12 June 2001 18:06:27

---

quote:

---

Lets wait and see what kind of help we get.

Edited by - ribkick on 12 June 2001 18:06:27

---

quote:

---

Is this thread dead? Why can't we get a response?.....

---

quote:

---

Shep,

Thanks for the apology. As I had said with my reply I didn't want to come across like an ass by telling you that, but I'm sure it very well could have come across like that especially when you're frustrated in code that just isn't working right, so I'm sorry it came across like that............

---