Snitz Forums 2000
Snitz Forums 2000
Home | Profile | Register | Active Topics | Members | Search | FAQ
Username:
Password:
Save Password
Forgot your Password?

 All Forums
 Snitz Forums 2000 MOD-Group
 MOD Add-On Forum (W/O Code)
 Modify pop_preview.asp
 New Topic  Topic Locked
 Printer Friendly
Author Previous Topic Topic Next Topic  

StephenD
Senior Member

Australia
1044 Posts

Posted - 16 May 2005 :  18:54:16  Show Profile  Send StephenD a Yahoo! Message
I've got some custom text posting fields in post.asp that don't show when you select Preview. How can I modify pop_preview.asp to show these fields which get added to Message. This is an example of the code in post.asp
If strRqMethod = "Topic" then
    		Response.Write	"		 <tr>" & vbNewLine & _
 				"		 <td bgColor=""" & strPopUpTableColor & """ noWrap vAlign=""middle"" align=""right""><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><b>Application Type: </b></font></td>" & vbNewLine & _
                                "		<td bgColor=""" & strPopUpTableColor & """><select name=""Apptype"" size=""1"">" & vbNewLine
Response.Write	"<option value=""New"">New</option>" & vbNewLine & _
		"<option value=""Review"">Review</option>" & vbNewLine & _
		"<option value=""Revalidation"">Revalidation</option>" & vbNewLine & _
		"<option value=""Upgrade"">Upgrade</option>" & vbNewLine & _
		"<option value=""Downgrade"">Downgrade</option>" & vbNewLine
		Response.Write	"                      </select></font>" & vbNewLine & _
		                "                    </td></tr>" & vbNewLine

And this is how it looks in post_info.asp:
'**************CUSTOM POST FIELDS ************
				dim ApplicantMessage
				ApplicantMessage = "Name: " & Request.Form("Subject") & vbNewLine
				ApplicantMessage = ApplicantMessage & "Level: " & Request.Form("Level") & vbNewLine
				ApplicantMessage = ApplicantMessage & "Type: " & Request.Form("Apptype") & vbNewLine
				ApplicantMessage = ApplicantMessage & "Case Officer: " & Request.Form("CaseOfficer") & vbNewLine
				ApplicantMessage = ApplicantMessage & "Customer: " & Request.Form("Customer") & vbNewLine
				ApplicantMessage = ApplicantMessage & "Clearance#: " & Request.Form("Clearanceno") & vbNewLine
				txtMessage = ChkString(ApplicantMessage & vbNewLine & "Additional Details: " & Request.Form("Message"),"message")
'******************************
	       txtLocation = ChkString(Request.Form("Location"),"message")
		txtSubject = ChkString(Request.Form("Subject"),"SQLString")
		dateHolder = DatetoStr(CDate(Request.Form("event_date")))

I think the javascript at the top of pop_preview.asp pulls the info out of the form but how can I add what is in those extra fields?

StephenD
Senior Member

Australia
1044 Posts

Posted - 18 May 2005 :  08:05:33  Show Profile  Send StephenD a Yahoo! Message
Anyone got any ideas on this one? I've been messing around meself with the javascript but not getting anywhere fast.
Go to Top of Page

MarcelG
Retired Support Moderator

Netherlands
2625 Posts

Posted - 23 May 2005 :  15:23:18  Show Profile  Visit MarcelG's Homepage
Well, you're on the right track, that's for sure. But, as far as I can see you don't need to change thát code.
If I'm right, you need to change the following code: (Line 72..)
strMessagePreview = trim(Request.Form("message"))

There you need to add the other forms....so, for instance.
strMessagePreview = trim(Request.Form("message")) & "<br>Location:" & trim(Request.Form("Location"),"message")

Just a thought. If I'm reading it right, this should work.
In

portfolio - linkshrinker - oxle - twitter

Edited by - MarcelG on 23 May 2005 15:24:03
Go to Top of Page

StephenD
Senior Member

Australia
1044 Posts

Posted - 23 May 2005 :  17:34:30  Show Profile  Send StephenD a Yahoo! Message
Thanks marcelgoertz, although that didn't seem to work. I even tried using a dimcustompreview same as my post_info example above. Tried just using Request.Form("Location") too.
Go to Top of Page
  Previous Topic Topic Next Topic  
 New Topic  Topic Locked
 Printer Friendly
Jump To:
Snitz Forums 2000 © 2000-2021 Snitz™ Communications Go To Top Of Page
This page was generated in 0.22 seconds. Powered By: Snitz Forums 2000 Version 3.4.07