ASP

81K

Solutions

31K

Contributors

Active Server Pages (ASP) is Microsoft’s first server-side engine for dynamic web pages. ASP’s support of the Component Object Model (COM) enables it to access and use compiled libraries such as DLLs. It has been superseded by ASP.NET, but will be supported by Internet Information Services (IIS) through at least 2022.

Share tech news, updates, or what's on your mind.

Sign up to Post

Hi all, I was curious to see if there was a simpler way to change a date format...

I recently have moved my website to a US server and now the date is backwards (MM-DD-YY)

What I code I was using was (DD-MM-YY):
"&Date(*some date*)&"

Open in new window


Is there an easy way to change it back to this format?

Or do I need to do:
"&Day(*some date*)&"/"&"&Month(*some date*)&"/"&Year(*some date*)&"

Open in new window


Any help would be great
0
Upgrade your Question Security!
LVL 12
Upgrade your Question Security!

Your question, your audience. Choose who sees your identity—and your question—with question security.

Hi, Experts, My code below is working but having so much delay in terms of response. Is there any other way here to achieve the goal but not having so much delay? This is the scenario, I have two table Stock, and ActualCount. They have common field, Procode. First, I need to loop the Stock and each procode of it  will be going to check in table ActualCount to check the status. The code below is having so much delay and sometimes receive an error response from the server. Any help please!

<%
On Error Resume Next
dim theServer, dsqty, cntcode, qty, pcode, x

cntcode = request.querystring("b")
deptcode = request.querystring("c")

response.expires=-1
Set rs = Server.CreateObject("ADODB.Recordset")
set cn=Server.CreateObject("ADODB.Connection")
cn.ConnectionString = "driver={SQL Server};server=" & "MyNoteBook" & "\SQLEXPRESS;uid=sa;pwd=3808;database=" & "Winz" & ";ConnectionTimeout=10;"
cn.Open

If Err.Number <> 0 Then
    Response.Write(  Err.Number & "|" & Err.Description )
    Response.End()
End If
   Set rs = cn.Execute("Select * from Stock where DPTID='" & deptcode & "' and Own='" & "Men" & "' And Active='" & "Yes" & "' order by proname asc")
      with rs
         If rs.BOF = True Then 'No record
             response.write("No records!")
             response.end()
         else
      response.write("<table style=""width:890px; height: 600px"" id=""CountesStock"" class=""PoRaX"">")
         response.write("<thead style=""width:890px;"">")
            

Open in new window

0
Hi,

I need to write this code in global.asa. GetLastDateandTime is working fine. I need to put that in the session. If user is present then we get the data from the database. This function is working fine. If user is not present then we are using update function. My update function is not working. Page is down. I am not sure how to fix the update function.

Sub S[b]ession_OnStart[/b]

Dim objConn, objRs, strConn

Set objRs = Server.CreateObject("ADODB.Recordset")

Set objConn = Server.CreateObject("ADODB.Connection")                                                                                     

             

strConn = "test;"

 

objConn.Open strConn

dim strUser

strUser = request.servervariables("logon_user")

dim strDateAndTime = Now()       

If (strUser <> "" ) then

    Session("LastDateTime") = GetLastDateandTime(strUser, objRs,objConn)

else
[b]
   UpdateLastDateAndTime(strUser, strDateAndTime, objRs,objConn);[/b]

End If

 

Set objRs = Nothing

Set objConn = Nothing

End If

 

End Sub

 

 

Function GetLastDateandTime( ByVal strUser, ByRef objRs, ByRef objConn)

'--------------------------------------------------------------------------

'-------------------------------------------------------------------------

    Dim cmd

             

       Set cmd = Server.CreateObject("ADODB.Command")                            

       Set cmd.ActiveConnection = objConn

 

       cmd.CommandText = "usp_GetLastDateandTime"

       cmd.CommandType

Open in new window

0
How to display the Session Timeout Warning Dialog in Classic asp? I want to display the session timeout warning at 13 minutes and session will  timeout at 15 minutes.

Dialog will have yes and no buttons. Yes button will again extend the session and No button will just cancel the dialog and session will timeout in 2 minutes.

How this can be done in classic asp?
0
LDAP Query : Table does not exist.
Hi all : thanks for taking the time to read my question.  I need some assistance with a strange LDAP issue.

ERROR: |80040e37|Table_does_not_exist.

We have ldap accessing code in the following format, Some times it's working,but is producing errors like above ERROR

Dim objRootDSE, objCon, objCmd, objRecordSet
Dim strDomainAdsPath
Dim arrMembers
Dim intCount
Dim strmember,strLoggedInUser, strUserStrId, strUserId,blnIsMemberOf, strDomPath,name
response.write strUser + "<BR/>"
Dim ServiceRequest
Dim MagicTicket
ServiceRequest=Request.QueryString("SR")
MagicTicket=Request.QueryString("MT")

	Dim  strPassword, strQuery, oConn, cmd, oRS, Dom, mail,strUsername,firstname,lastname,fullname,URL,PathSAP
	strUserId=""
EMEAUSERNAME = ""
EMEAPASSWORD = ""
Dom="emea"

				Set objRootDSE = GetObject("LDAP://RootDSE")
				strDomainAdsPath = "LDAP://" & objRootDSE.Get("defaultNamingContext")
				response.write strDomainAdsPath + "<BR/>"
				strDomPath=objRootDSE.Get("defaultNamingContext")
				Set objRootDSE = Nothing
				Set objCon = Server.CreateObject("ADODB.Connection")
				objCon.Provider = "ADsDSOObject"
				objCon.Open "ADProvider", EMEAUSERNAME, EMEAPASSWORD
				Set objCmd = Server.CreateObject("ADODB.Command")
				Set objCmd.ActiveConnection = objCon
				'objCmd.CommandText = "Select name,mail,UserPrincipalName from '" & strDomainAdsPath & "' where objectClass='user' and UserPrincipalName ='" & strUserfull & "'"
				objCmd.CommandText 

Open in new window

0
I have a query in Classic ASP that has the potential to grow to thousands of rows.



  <%

' Our own constants:
Const PAGE_SIZE = 10  ' The size of our pages.

' Declare our variables... always good practice!
Dim strURL     ' The URL of this page so the form will work
               ' no matter what this file is named.

Dim cnnSearch  ' ADO connection
Dim rstSearch  ' ADO recordset
Dim strDBPath  ' path to our Access database (*.mdb) file

Dim strSQL     ' The SQL Query we build on the fly
Dim strSearch  ' The text being looked for

Dim iPageCurrent ' The page we're currently on
Dim iPageCount   ' Number of pages of records
Dim iRecordCount ' Count of the records returned
Dim I            ' Standard looping variable

' Retreive the URL of this page from Server Variables
strURL = Request.ServerVariables("URL")

' Retreive the term being searched for.  I'm doing it on
' the QS since that allows people to bookmark results.
' You could just as easily have used the form collection.
strSearch = Request("search")

' Retrieve page to show or default to the first
If Request.QueryString("page") = "" Then
	iPageCurrent = 1
Else
	iPageCurrent = CInt(Request.QueryString("page"))
End If


If strSearch = "" Then

  'Display all the details passed

			'	for i=1 to request.form.count
			'	response.write Trim(request.form.key(i))&"; "& Trim(request.form.item(i)) &"<br>"
			'	Next

		'Response.End 
	
	Set cnnSearch = Server.CreateObject("ADODB.Connection")

	' This line is for the 

Open in new window

0
I am maintaining an old, old classic ASP site - there is a form which includes the following tag around the "submit" image:

<a href="javascript:ValidateMakeForm();" onMouseOver="msover(1); return true" onMouseOut="msout(1)">

The function is defined on the page like below - basically sets the form action and submits the form.

<script language="javascript">
function ValidateMakeForm()
{
	if (document.forms['searchmake'].category_id.selectedIndex == 0)
	{	
		alert("You must select a make.");
		document.forms['searchmake'].category_id.focus();
		return;
	}
	document.forms['searchmake'].action = document.forms['searchmake'].category_id.value;
	document.forms['searchmake'].submit();
}
</script>

Open in new window


IE 11 is throwing an error 'ValidateMakeForm' is undefined.   Everything works in Chrome, Firefox and Edge and even in IE 11 when viewed in Compatibility Mode.
0
(I normally use classic asp for this) but would be willing to learn other options.  

I am creating a web form and want the following to occur:

Pick user name from dropdown (no problem, know how to do this)

Next dropdown is a list of holidays (ie Christmas, Thanksgiving etc)

I want the user to be able to pick a holiday, but not submit the form yet because I want them to answer questions for each holiday.

So if they pick the first holiday - ie Christmas - I then want a field or fields that show a calendar.  I want them to select the days they are closed for that holiday.  

Then another issue (question) would be if they are closed all day or partial day.  I really don't need the details of the partial day (ie 6 hours, closing 2 hours early etc) just that it's not all day.   At times they may select up to 4 days around Christmas that they are closed all day or partial days.

Then when they have finished Christmas I want them to move on to New Year's. Once finished then they click submit and submit the results to the database.  At this point how many columns would I set in the database - something like 6 columns to cover all scenerios?  Or if partial it goes into one column and if full day it goes into another column.  Not knowing what they will pick is an issue (for me).  I normally deal with standard answer type forms.

 They would only fill out this data once a year.  Normally I do a survey for each holiday but would really like to have this more automatic…
0
Using the PayPal sandbox environment, I am able to successful send an item for purchase to PayPal. PayPal displays the purchase screen with the correct information. I click the ‘Pay Now’ button and the transaction completes. The successful transaction shows in both the buyer and seller accounts.

PayPal returns to the specified url and has the PaymentID, Token, and PayerID.

The problem is there is nothing in the Response.Form. I search thru the items and there are no items. An objHTTP.Send returns INVALID from PayPal.
Using Telerik Fiddler, there is nothing being returned…other than the url items.

Below is the code I am using.

Thank you in advance for your assistance.

<%
Dim Item_name, Item_number, Payment_status, Payment_amount
Dim Txn_id, Receiver_email, Payer_email
Dim objHttp, str

Response.Write "PaymentID=" & Request.QueryString("PaymentID") & "*<BR>"
Response.Write "Token=" & Request.QueryString("Token") & "*<BR>"
Response.Write "PayerID=" & Request.QueryString("PayerID") & "*<BR>"

Response.Write "<table><tr><td>Name</td><td>Value</td></tr>"
For Each Item In Request.Form
    Response.Write "<tr><td>" & item & "</td><td>" & Request.Form(item) & "</td></tr>"
Next
Response.Write "</table>"
 
' read post from PayPal system and add 'cmd'
str = Request.Form & "&cmd=_notify-validate"

Response.Write "str: " & str & "*<BR>"
 
' post back to PayPal system to validate
' Note: either of these work
' SET objHTTP = Server.CreateObject("Msxml2.ServerXMLHTTP")

Open in new window

0
i have the following code that display my calandar. I had to write it in asp/vbscript to comply with the actual solution


 <%

Dim currDate, nMonth, nDay, nYear
Dim lastMonth, lastYear, lastFirstDayPos, lastNumDays, submit
Dim numDays, monthName(13), count, pos, firstDayPos, eventDay, dayNum, cell(38)
Dim events(38)
Dim test1, test2, test3 ' used in leap year calcs
dim hideButton

If Request.Form("submit") <> "" Then

lastMonth = Int(Request.Form("lastMonth"))
lastYear = Int(Request.Form("lastYear"))
lastFirstDayPos = Int(Request.Form("lastFirstDayPos"))
lastNumDays = Int(Request.Form("lastNumDays"))
submit = Request.Form("submit")

End If

currDate = Date ' Date contains the current system date.
nMonth = Int(Month(currDate)) ' integer value 1 to 12
nDay = Int(Day(currDate)) ' integer value 1 to 31
nYear = Int(Year(currDate)) ' integer value yyyy
dayOfWeek = Int(Weekday(currDate)) ' integer values 1 to 7 (note diff from mini-SQL 0-6)


%>

<HTML>
<HEAD>
<TITLE>Calendar</TITLE>
</HEAD>
<BODY BGCOLOR="#ffffff" TEXT="#00000">
<CENTER>
<TABLE BORDER="1" cellspacing="2" CELLPADDING="2">

<%

' Previous or Next Month (passed values)

If submit = "Previous Month" Then
    nMonth = lastMonth - 1
    'nYear = lastYear -1
    If nMonth = 0 Then
        'nYear = nYear - 1
        nMonth = 12
    End If
end if


If submit = "Previous Month" Then
    nMonth = lastMonth - 1
    'nYear = lastYear -1
    If nMonth = 0 Then
        'nYear = nYear - 1
        nMonth = 12
    end if

Open in new window

0
Cloud Class® Course: Microsoft Office 2010
LVL 12
Cloud Class® Course: Microsoft Office 2010

This course will introduce you to the interfaces and features of Microsoft Office 2010 Word, Excel, PowerPoint, Outlook, and Access. You will learn about the features that are shared between all products in the Office suite, as well as the new features that are product specific.

what web server language for this code:

<!DOCTYPE html>
<html>
<body>
     <h1>Hello Web Pages</h1>
     <p>The time is @DateTime.Now</p>
</body>
</html>

I have a windows server that supports asp and asp.net but it's don't provide the date time. I try to change the file extension to asp or aspx but the problem stays.

thnaks a lot
0
We cannot make a REST call using Classic ASP over TLS 1.2. This call is to get the authorization token from Paypal. We have tried lots of code variants with no success:

Example 1:
            Set xmlHttp = Server.CreateObject("WinHTTP.WinHTTPRequest.5.1")
            xmlHttp.Open "POST", "https://api.sandbox.paypal.com/v1/oauth2/token", False
            xmlHttp.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
            xmlHttp.setRequestHeader "Accept", "application/json"
            xmlHttp.setRequestHeader "Accept-Language", "en_US"
            basico = "Basic " & Base64Encode(paypal_client_id & ":" & paypal_client_secret)
            xmlHttp.setRequestHeader "Authorization", basico <== "Invalid procedure call or argument"
            xmlHttp.Send "grant_type=client_credentials"

Example 2:
            Set xmlHttp = Server.Createobject("MSXML2.ServerXMLHTTP.6.0")
            xmlHttp.Open "POST", "https://api.sandbox.paypal.com/v1/oauth2/token", False
            xmlHttp.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
            xmlHttp.setRequestHeader "Accept", "application/json"
            xmlHttp.setRequestHeader "Accept-Language", "en_US"
            basico = "Basic " & Base64Encode(paypal_client_id & ":" & paypal_client_secret)
            xmlHttp.setRequestHeader "Authorization", basico
            xmlHttp.Send "grant_type=client_credentials"  <== "An error occurred in the secure channel support"

Also, we've been able to make it with .NET and with PHP at the same server.
0
My site formally used a URL rewrite component called LinkFreeze to change the URL's to "SEO friendly URLs".
EX: 'www.mysite.com/category.asp?cat=3&subcat=2'  would be changed to  'www.mysite.com/category~3~subcat~2.asp'

Moving forward to 2018... I'm unable to use this component anymore so there are thousands of orphan URL's out there.  I wrote a simple script for a custom 404 page that redirects the URL to the correct (original) format of 'www.mysite.com/category.asp?cat=3&subcat=2'.  This works, but I was hoping there was a way to do a 301 redirect using URL Rewrite.  I'm open to any suggestions.
0
get data from database do normal
after then i don't know what to do
i found some example pages but i coudn't find fit answer for me
i am begginner so can u answer and explain the code?      
my goal is following this page https://datatables.net/examples/server_side/simple.html                        
<% if objrs.bof or objrs.eof then %>
						<tr align="center">
						<td colspan="5">글이 없습니다.</td>
						</tr>
						<%
							Else
							'게시물이 있으면 objrs로 현재 페이지와 페이지 크기에 따라 objrs 이동
							objrs.move(intNowpage-1) * intPageSize
							'계속해라 게시물이 끝날때까지
							do until objRs.eof
						%>
						<tr>
							<td><a href="content.asp?seq=<%=objRs(0)%>&page=<%=intNowPage%>&AscDesc=<%=AscDesc%>"><%=objrs(0)%></a></td>
							<td><a href="content.asp?seq=<%=objRs(0)%>&page=<%=intNowPage%>&AscDesc=<%=AscDesc%>"><%=objRs(3)%></a></td>
							<td><a href="content.asp?seq=<%=objRs(0)%>&page=<%=intNowPage%>&AscDesc=<%=AscDesc%>"><%=objRs(1)%></a></td>
							<td><%=left(objrs(5),10)%></td>
							<td><%=objrs(4)%></td>
						</tr>
						<% 
							'다음 objrs로 넘어감
							objrs.movenext
							loop
							end if
							objRs.close
							set objRs = nothing
							objDBConn.close
							set objDBConn = nothing
						%>

Open in new window

0
I'm using jRecorder to record voice with SWF. The component basicly working in PHP properly. But I should adapt this to Classic-ASP



There is buttons, when I try click to "Send Data", it sends data to "INC_AcceptFile.asp?filename=test.wav" but unfortunatelly I couldn't save the file.

jRecorder Github page:
github.com/sythoos/jRecorder/

<script> 
   $.jRecorder(
     { 
        host : 'INC_AcceptFile.asp?filename=test.wav' ,  //replace with your server path please
        callback_started_recording:     function(){callback_started(); },
        callback_stopped_recording:     function(){callback_stopped(); },
        callback_activityLevel:          function(level){callback_activityLevel(level); },
        callback_activityTime:     function(time){callback_activityTime(time); },
        callback_finished_sending:     function(time){ callback_finished_sending() },
        swf_path : 'JS/jRecorder.swf',
     }
   );   
</script>

Open in new window


PHP Codes (works)

 <?php
       if(!isset($_REQUEST['filename']))
       {
         exit('No file');
       }
       $upload_path = dirname(__FILE__). '/';
       $filename = $_REQUEST['filename'];
       $fp = fopen($upload_path."/".$filename.".wav", "wb");
       fwrite($fp, file_get_contents('php://input'));
       fclose($fp);
       exit('done'); 
    ?>

Open in new window

My codes that I trying

set xmlhttp = Server.CreateObject("Msxml2.ServerXMLHTTP.6.0") 
xmlhttp.open "GET", ???? , false 
xmlhttp.send
With Server.CreateObject("Adodb.Stream")
    .Type = 1 '1 for binary stream
    .Open
    .Write xmlhttp.responseBody
    .SaveToFile Server.Mappath("data/hello.wav"), 2 ' 2 for overwrite
    .Close
End With
set xmlhttp = nothing 

Open in new window

0
Hi
I am new in angularJS.
i am working with classic asp and angularJS.
when i call http post method to classic asp page in angularJS  its send data to classic asp page. but when i am try to retrieve posted data on classic asp page i found nothing?

is there i am doing wrong?

here is my code sample

----------Html code---------------
<div ng-app="CallSiteVisitor" ng-controller="SessionAndVisitor">
<form ng-submit="SaveData()" >
<input type="text" ng-model="form.firstname">
<input type="text" ng-model="form.lastname">
<input type="submit">
</form>
</div>
---------Html code end----------

-----------Controller code ------------
var app = angular.module('CallSiteVisitor', ['fm']);
      app.controller('SessionAndVisitor', function($scope, $http) {

$scope.form = {};
        $scope.SaveData = function() {
                  $http({
                    method  : 'POST',
                    url     : 'http://www.xyz.com/action_contactformAJ.asp',
                    data    : $scope.form,
                    headers : { 'Content-Type': 'application/x-www-form-urlencoded; charset=UTF-8' }
                   })
                    .success(function(data) {
                        if (data.errors) {
                                        // error code
                        } else {
                         // data code
                        }
                    });
                  };
      });
-----------Controller  code end---------


---------- Classic asp page code (action_contactformAJ.asp)-------------------------
<%
Response.write request("FirstName") & "  " & request("LastName")
' here i found null value but when i see in browser by pressing …
0
Hi
I am new in angularJS.
i am working with classic asp and angularJS.
when i call http post method to classic asp page in angularJS  its send data to classic asp page. but when i am try to retrieve posted data on classic asp page i found nothing?

is there i am doing wrong?

here is my code sample

----------Html code---------------
<div ng-app="CallSiteVisitor" ng-controller="SessionAndVisitor">
<form ng-submit="SaveData()" >
<input type="text" ng-model="form.firstname">
<input type="text" ng-model="form.lastname">
<input type="submit">
</form>
</div>
---------Html code end----------

-----------Controller code ------------
var app = angular.module('CallSiteVisitor', ['fm']);
      app.controller('SessionAndVisitor', function($scope, $http) {

$scope.form = {};
        $scope.SaveData = function() {
                  $http({
                    method  : 'POST',
                    url     : 'http://www.xyz.com/action_contactformAJ.asp',
                    data    : $scope.form,
                    headers : { 'Content-Type': 'application/x-www-form-urlencoded; charset=UTF-8' }
                   })
                    .success(function(data) {
                        if (data.errors) {
                                        // error code
                        } else {
                         // data code
                        }
                    });
                  };
      });
-----------Controller  code end---------


---------- Classic asp page code (action_contactformAJ.asp)-------------------------
<%
Response.write request("FirstName") & "  " & request("LastName")
' here i found null value but when i see in browser by pressing …
0
Hello every 1.

To finish a cost analysis for a concept, i want to make an list for an IT server Infrastructure / Architecture for a e-commerce website. For days now I am surfing the internet to find a small pieces of information.

Hyper Converged Infrastructure / hardware for server
Below a list of what I have found so far on the internet for the composition of a hyperscale computing environment setup on which everything should run.
This server system must function with open source technologies and support open innovation.

Usable Servers
Fileserver (FTP) -
Mailserver (Microsoft exchange) -
Printserver -
Log In server Printserver -
Back up Server -
Media |Server (videos + Photographs),
Application server (software developed locally)
Webserver / Virtualisation server  (Nginx)
Webserver
Webserver
Economic server
Test server
Databaseserver (Microsoft SQL and Mongo DB)
Collaboration Server (Microsoft Sharepoint)
Host connectivity


Local Area Network in company
- VPN server
- DNS server
- DHCP server
- Virus scan  / Wsus server
- Wide Air Networks (WAN) SD-WAN+VPN+L2 encryption
- Network SLAs -
- Extranet - External Acces Portals
- Intranet - Internal Acces Portals
- Switches, -
- Acces points,
- modems, routers,
- firewalls  NextGen FW + Inet DDos subscription
- Router
- Fiber optic cabels
- UPS powersupplies

The system must be able to process around 8 million visitors a month, and 2 …
1
I had this question after viewing Classic ASP - Using Response.Redirect with parameters (or anchor).

I am now working on a similar classic ASP page, and all is working well. The redirect after form completion works fine, and redirects to the same page as the form is on, and to the correct position, because of the anchor.

There are two pages : viewstudent.asp (the main page) and updatediary.asp. The form is contained in viewstudent.asp, and the form action happens on updatediary.asp, and the last line of code in updatediary.asp redirects back to viewstudent.asp :

Response.Redirect("viewstudent.asp?id=" & getSchoolID & "#DataEntryTest")

Open in new window


All good so far.

Now, I have changed the design a little bit, so that the main page viewstudent.asp now has 3 tabs, with the tab1 showing as default when the page loads initially.

This is done with a simple javascript function. The problem now is that when the form (which is on tab2) is submitted  , the redirect (with anchor) does not work, because of the default loading of tab1. It should (I want it to) redirect to tab2, where the form is.

I wondered if there was any way to override this, possibly by adding a tab-id to the response.redirect statement, eg something like :

Response.Redirect("viewstudent.asp?id=" & getSchoolID & "#EnterVisit" & tab-id=2)

Open in new window

 

Is this possible? I have searched the web for an answer, but all the answers are for "tab" (meaning a new browser tab), and not a set of tabs on a single page.

This is the tabs code :


Open in new window

0
Cloud Class® Course: Amazon Web Services - Basic
LVL 12
Cloud Class® Course: Amazon Web Services - Basic

Are you thinking about creating an Amazon Web Services account for your business? Not sure where to start? In this course you’ll get an overview of the history of AWS and take a tour of their user interface.

0
Converting a classic ASP site to run on Windows Server 2012 R2. The site makes extensive use of custm HTML meta tags and Index Server to achieve many different results. Windows Server 2012 does not have Index Server and it seems the recommended replacement to use is Windows Search service. I can modify my queries on the search catalog to find standard information such as title, filename etc. The problem is I can't figure out how to add my custom meta tags to the catalog and then be able to search for them on the ASP pages.

So I need to know two things: how to ad the custom tags to the search catalog/index and then how to search for them via classic ASP code.
0
I'm using the well know function below.. I receive the payload, split the string, and sometimes it works, sometimes it does not.

I take the same  string I am trying to decrypt, and try in javascript, and it decrypts it (jwt.io) ... I have been scratching my head for 2 days trying to figure out what the issue is.. I get the error "Error parsing [BigLongBASE54stringGoesHere] as bin.base64 datatype"

If I snip off the last 2-4 characters it process it, but removes the trailing "}" unencoded response.... about 1/2 of the return payloads act like this.

Function Base64Decode(ByVal vCode)
    Dim oXML, oNode
    Set oXML = CreateObject("Msxml2.DOMDocument.3.0")
    Set oNode = oXML.CreateElement("base64")
    oNode.dataType = "bin.base64"
    oNode.text = vCode
    Base64Decode = Stream_BinaryToString(oNode.nodeTypedValue)
    Set oNode = Nothing
    Set oXML = Nothing
End Function
0
Hi there, I have been looking for some code to use with click and enlarge of images, however...

All the code I have found opens a new window (of the browser) which the user would have to click to close...

I have prob the wrong wording, and do not know the correct.

What I am looking for is the image is enlarged over the top of it (not within the page itself)

a good example is:
https://www.gootickets.com/en/7-formula-1/10801-azerbaijan/?affid=3672&pgs=91

another good example is when you click the link button above

Is anyone able to help me find the right code or suggest where I can find it?
0
w3socketc.dll can work both vb, asp and php? Could anyone  replay me. I need it badly.
There is a server and I need to socket connection and give some command and get output from there. Now it is connected w3sockets.dll vie VB. I wants to convert it to php but I am stacked at connection stage. Only telnet is enable there. Please help me regards this issue.
0
how do I get moments.js to output to asp classic variable  e.g <%=mytimeORsomthing %>
0

ASP

81K

Solutions

31K

Contributors

Active Server Pages (ASP) is Microsoft’s first server-side engine for dynamic web pages. ASP’s support of the Component Object Model (COM) enables it to access and use compiled libraries such as DLLs. It has been superseded by ASP.NET, but will be supported by Internet Information Services (IIS) through at least 2022.