Click here to Skip to main content
15,916,835 members
Home / Discussions / Web Development
   

Web Development

 
AnswerRe: HREF between folders? Pin
Paddy Boyd21-Jul-06 0:09
Paddy Boyd21-Jul-06 0:09 
GeneralRe: HREF between folders? Pin
Amit Agarrwal24-Jul-06 19:55
Amit Agarrwal24-Jul-06 19:55 
GeneralRe: HREF between folders? Pin
Paddy Boyd24-Jul-06 21:55
Paddy Boyd24-Jul-06 21:55 
Questionprinting a webform using javascript Pin
arvindk820-Jul-06 17:58
arvindk820-Jul-06 17:58 
QuestionCSS Nesting Pin
eggsovereasy20-Jul-06 11:13
eggsovereasy20-Jul-06 11:13 
AnswerRe: CSS Nesting Pin
J. Dunlap20-Jul-06 11:54
J. Dunlap20-Jul-06 11:54 
AnswerRe: CSS Nesting Pin
theJazzyBrain25-Jul-06 5:33
theJazzyBrain25-Jul-06 5:33 
QuestionMicrosoft VBScript runtime error '800a01a8' Pin
Abbas8220-Jul-06 10:58
Abbas8220-Jul-06 10:58 
Hi All,

I am trying to encrypt the query string from page to page...so the calling page must encrypt the query string, and the called page must decrypt it...

When I run it without encryption (same code), I have no problems. When I try with the encrypted query string, I get the following message...

Microsoft VBScript runtime error '800a01a8'
Object required: 'objSharedCrypto'
/shared/includes/Crypt.asp, line 52

This is where we are decrypting...
Dim QSColl, strRequestQS<br />
Set QSColl = RequestQS2()<br />
<br />
rptid = QSColl("rptid")<br />
dataid = QSColl("dataid")<br />
If dataid = "" Then dataid = rptid<br />
DataSession = "RPT-" & dataid<br />
strUDBId = Session("VMAccount")


This is the RequestQS2 function I am calling
Function RequestQS2()<br />
	Dim objQS, key<br />
	Dim objQSDict<br />
	Dim strQS		' Set to Request.QueryString.<br />
<br />
	strQS = Request.QueryString<br />
	If EncryptedQS() Then<br />
		Set objQS = DecryptToQS(strQS, Salt())<br />
		'Set objQSDict = Server.CreateObject("Scripting.Dictionary")<br />
<br />
		'For Each key In objQS<br />
		'	objQSDict.Add LCase(key), objQS(key)<br />
		'Next<br />
		Set RequestQS2 = objQS<br />
<br />
		Set objQS = Nothing<br />
		Set objQSDict = Nothing<br />
	Else<br />
		Set RequestQS2 = Request.QueryString<br />
	End If<br />
End Function


Which in turn calls on the DecryptToQS function below if the query string is indeed encypted

Function DecryptToQS(ByVal Str, ByVal Salt)<br />
	If EncryptedStr(Str) Then<br />
		' Remove Prefix.<br />
		Str = Right(Str, Len(Str) - Len(QSPrefix()))<br />
		Set DecryptToQS = objSharedCrypto.DecryptToQueryString(Str, "eFinanceIt", Salt)	<br />
        Else<br />
		DecryptToQS = Str<br />
	End If<br />
End Function


this is line 52 in shared/includes/crypt.asp
Set DecryptToQS = objSharedCrypto.DecryptToQueryString(Str, "eFinanceIt", Salt)

on the first line of Crypt.asp there is the following declaration
Dim objSharedCrypto<br />
Set objSharedCrypto = Server.CreateObject("Crypto.QueryString")


So I am not sure what the problem is, I've used the function with other pages, and it works fine...something is happening with this particular page however.

Any ideas or suggestions?

I appreciate the help

Thanks
AnswerRe: Microsoft VBScript runtime error '800a01a8' Pin
Abbas8221-Jul-06 6:46
Abbas8221-Jul-06 6:46 
QuestionHow to Compare two Dates in date picker Pin
abufaizur20-Jul-06 7:48
abufaizur20-Jul-06 7:48 
AnswerRe: How to Compare two Dates in date picker Pin
mahesh kukkadapu21-Jul-06 5:35
mahesh kukkadapu21-Jul-06 5:35 
QuestionAutomatically creating csv files?? Pin
jimmyfitzgerald20-Jul-06 5:13
jimmyfitzgerald20-Jul-06 5:13 
AnswerRe: Automatically creating csv files?? Pin
Steve Echols20-Jul-06 5:52
Steve Echols20-Jul-06 5:52 
Questionsaving data Pin
i@@19-Jul-06 21:50
i@@19-Jul-06 21:50 
AnswerRe: saving data Pin
theJazzyBrain19-Jul-06 22:25
theJazzyBrain19-Jul-06 22:25 
GeneralRe: saving data Pin
i@@20-Jul-06 20:15
i@@20-Jul-06 20:15 
QuestionCalendar Control is not working in Live Server Pin
kpsetty19-Jul-06 21:02
kpsetty19-Jul-06 21:02 
QuestionAjax vs Being Known Pin
Vladimir S.19-Jul-06 9:16
Vladimir S.19-Jul-06 9:16 
AnswerRe: Ajax vs Being Known Pin
led mike19-Jul-06 10:05
led mike19-Jul-06 10:05 
GeneralRe: Ajax vs Being Known Pin
Vladimir S.19-Jul-06 12:59
Vladimir S.19-Jul-06 12:59 
GeneralRe: Ajax vs Being Known Pin
led mike19-Jul-06 13:11
led mike19-Jul-06 13:11 
AnswerRe: Ajax vs Being Known Pin
Brent Lamborn19-Jul-06 14:57
Brent Lamborn19-Jul-06 14:57 
GeneralRe: Ajax vs Being Known Pin
Steve Echols19-Jul-06 20:19
Steve Echols19-Jul-06 20:19 
AnswerRe: Ajax vs Being Known Pin
Steve Echols19-Jul-06 20:26
Steve Echols19-Jul-06 20:26 
QuestionValidation Control Pin
Armando_Ramirez19-Jul-06 6:36
Armando_Ramirez19-Jul-06 6:36 

General General    News News    Suggestion Suggestion    Question Question    Bug Bug    Answer Answer    Joke Joke    Praise Praise    Rant Rant    Admin Admin   

Use Ctrl+Left/Right to switch messages, Ctrl+Up/Down to switch threads, Ctrl+Shift+Left/Right to switch pages.