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

Looking for a sql server/classic asp expert to look at my results code on the link below to suggest changes for efficient querying.  We have a very big day coming up soon with one event of over 6000 participants and I want to know if my code is optimized to avoid logjams.  This is something that I would be willing to entertain bids on.

https://www.gopherstateevents.com/results/cc_rslts/cc_rslts.asp?sport=Cross-Country&meet_id=505&rslts_page=overall_rslts.asp&show_indiv=n

Thank you!.
0
CompTIA Cloud+
LVL 12
CompTIA Cloud+

The CompTIA Cloud+ Basic training course will teach you about cloud concepts and models, data storage, networking, and network infrastructure.

I have an asp page which has several fields and I got stuck at drop down button which has to populate data from a query.
But whenever I wrote some code taken from different examples from online I will get http404 error.

How to overcome it.
 my sql query is select cur_date_str,cur_effective_date from tblmovedate; where I need drop down to be filled with cur_effective_date data.

Please help me
0
Hi,

We have the following Javascript code that is used on our intranet to hide/show side menus.

This code has been working perfectly fine for the last year or so and was written by someone who no longer works for the company. However over the past couple of days the side menus have stopped working in Google Chrome on all computers.

We are getting the following error:


Error

function show(menuChoice)
	{
		var el = document.getElementById(menuChoice);
		if ( el.style.display != 'none' )
			{
				Animation(document.getElementById(menuChoice)).to('height', '0px').to('opacity', 0).hide().go();
			}
		else
			{
				Animation(document.getElementById(menuChoice)).to('height', 'auto').from('0px').to('width', 'auto').from('0px').to('opacity', 1).from(0).blind().show().go();
			}
	}

function hide(menuChoice)
	{
		var el = document.getElementById(menuChoice);
		if ( el.style.display != 'none' )
			{
				Animation(document.getElementById(menuChoice)).to('height', '0px').to('opacity', 0).hide().go();
			}
		else
			{
				
			}
	}

Open in new window


Thanks, Greg
0
I have a lot of experience programming in MS Access VBA and some experience with classic ASP.

I created a website using classic ASP many years ago which uses MS SQL Server as the backend database engine.

Website visitors can enter a part number in a search box I generated and view a list of parts that are returned as search results.

I would like to add a shopping cart and payment gateway to my existing website but do not know where to start.
My existing code determines the item, quantity, and part number that the buyer wants to purchase.

It seems that I should be able to obtain a collection of pages that I can add to my site that will create the shopping cart and provide a payment gateway.
I should have no trouble integrating this "shopping cart code" with my existing code if it allows me to GET or POST to pass data.

Can anyone suggest a product I can use or someone I can hire to complete the project?

Thanks
0
I have and asp scrpit thta passes data to a php script via  post in a form.

All is ok except that whn the data passes it to large (too many bytes) I doesn't pass all the variables

As long as the amout of data remains relatively small all is ok.

I test passing the data to aan asp script and it passes it all.

Any ideas?

Thx
0
Hi, Experts, I need to know how it's possible to include in the manifest="offline.manifest" a messages from the server computer via Ajax and that message will store at the same time in the session storage and will be used during offline. I'm trying to develop an offline browser but getting difficult how to achieve that goal.  I used body onload event to trigger the Ajax and obtain the messages from the server thru ASP. <body onload="return GetMsg()"> My goal here is to retain or include the messages in the session storage and be used during offline. Any help please!  

<script>var msg;</script>
<script>
function GetMsg()
{
    debugger;
    var str = "E"
    {
        var xmlhttp = new XMLHttpRequest();
        xmlhttp.onreadystatechange = function() 
        {
          debugger;
            if (this.readyState == 4 && this.status == 200) 
            {
                msg = this.responseText;
            }
        };
        xmlhttp.open("POST", "GetHint.asp?q=" + str, true);
        xmlhttp.send();
    } 
}

</script>

Open in new window


The offline.manifest
CACHE MANIFEST
styles.css
jquery-1.4.min.js
offline.js
index.html

Open in new window

0
Hello

I am using class asp and in the IE i am getting this error "Object doesn't support property or method 'startRequest'". on further looking into the code, i found it that the error is from RS.HTM page , which is  a java applet....can any one help me out.
0
Hi, Experts, I'm trying to get an item within the array where I use the first word of the item as its reference. I found a code from asp tutorial that may lead to solve the problem but I'm still not able to solve it. Hoping you (Experts) help me solving this problem. This is my array; fruits = Array("100 Banana","200 Apple","300 Orange") I want to get the orange using 300 as its refrence. I have the code below but I don't know how to make it right. Thank you!

<%
DIM findThis
findThis = "300"
fruits = Array("100 Banana","200 Apple","300 Orange")

If in_array(findThis, fruits, false) Then 
  Response.Write Orange & " is in the array"
Else 
  'Response.Write findThis & " is not in the array"
End If

%>

<%
Function in_array(element, arr, performTrim)
  Dim i
  in_array = False
  For i=0 To Ubound(arr)
    If performTrim Then '//there are some scenarios where you want to trim
      If Trim(arr(i)) = Trim(element) Then
        in_array = True
        Exit Function      
      End If
    Else '//and other scenarios where you don't
      If arr(i) = element Then
        in_array = True
        Exit Function      
     End If
    End If     
  Next
End Function
%>

Open in new window

0
I have a classic ASP web page that uses Jmail to send messages.  The hosting company did a upgrade on their server a week ago. My script continued to work until today. I was told I should try using SMTP authentication instead of LocalHost.  No luck. Getting error message.  

ERROR: SendJmail The message was undeliverable. All servers failed to receive the messageSent as plain text.

Can someone tell me if I made the right changes?

The line Mailer.ServerAddress = "localhost"

Was replaced with the following lines

mailer.serverAddress = "sm04.internetmailserver.net"
mailer.port = 25
mailer.username = "[my email address]"
mailer.password = "[my password]"
0
I've got a website on shared hosting platform that I think go messed up when they updated the .net framework on the server.  I have several sites that are currently not working correctly.  I don't have direct access to the server so that kind of makes it difficult to troubleshoot directly.  So I have to keep emailing their support.

The site I am currently having an issues with is http://www.formulaboatsmo.com, I use a framework from DMXzone.com for my database calls, it uses a combination of javascript and asp.net for the functions.  The site is written in classic asp.  So what started happening is my asp database driven sections aren't working.

I get this error: 006~ASP 0178~Server.CreateObject Access Error~The call to Server.CreateObject failed while checking permissions. Access is denied to this object.

The developer(dmxzone) believes the issue is with the permissions on the System.security.dll should have read/read&execute.

I'm at a loss of what to do or direction to take.  If you load just this page: http://formulaboatsmo.com/dmxConnect/api/Boats/FrontSecondaryRandom.asp it will show you all the errors being kicked up.  Sites worked perfectly until the .net updates.

{"type":"Error","fileName":"lib/core/parser.asp","lineNumber":86,"message":"006~ASP 0178~Server.CreateObject Access Error~The call to Server.CreateObject failed while checking permissions. Access is denied to this 

Open in new window

0
Learn Ruby Fundamentals
LVL 12
Learn Ruby Fundamentals

This course will introduce you to Ruby, as well as teach you about classes, methods, variables, data structures, loops, enumerable methods, and finishing touches.

Hi there, I was wondering if someone can help me/guide me in the right direction of a crypo currency API and a script (or alter an existing script) to call the data

I have found this Crypo API - http://www.coinapi.io/ (https://docs.coinapi.io/)

URL: https://rest.coinapi.io/v1/exchangerate/USD?apikey=APIcryptoKEY

The script I already have, uses a currency API to get the data and I was wondering if it is possible to modify this (this script was built by someone else):
	Dim oJSON
	Set oJSON = New aspJSON

	Set oConn=Server.CreateObject("ADODB.Connection")
	oConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath("core/allcore.mdb")

	Set Currencies=oConn.Execute("SELECT ticket_curr FROM tickets WHERE ticket_from>Now() AND ticket_live=TRUE AND ticket_soldout=FALSE Group By ticket_curr Order By ticket_curr")
	CurrCount=0
	Do Until Currencies.EOF
	If CurrCount=0 Then
		Curr=Currencies("ticket_curr")
	Else
		Curr=Curr&","&Currencies("ticket_curr")
	End If
	Set CheckCurr=oConn.Execute("SELECT * FROM site_curr WHERE curr_ID='"&Currencies("ticket_curr")&"'")
	If CheckCurr.EOF Then
		oConn.Execute("INSERT INTO site_curr(curr_ID) VALUES('"&Currencies("ticket_curr")&"')")
	End If
	CurrCount=CurrCount+1
	Currencies.MoveNext
		Loop

	Set oXMLHTTPClient=CreateObject("MSXML2.ServerXMLHTTP")
	

Open in new window

0
Hi EE! :)

Our website has been working flawlessly until recently - we noticed that some pages began to intermittently load slowly, hanging for somewhere between 10-30 seconds, sometimes loading successfully after a considerable wait, but in many cases leading the application in the app pool to hang for a long time, and sometimes requiring a manual restart of IIS. Even restarting IIS takes a long time when it's hanging.

The website is several years old and coded in classic ASP/VB - the pages seemingly causing the bother are fairly heavy ones in regard to sever side code with lots of recordsets etc, but have NEVER caused any problems until the last couple of weeks or so.

The website app runs in 32bit compatibility mode set in the IIS apppool (We use 32bit mode as we're connecting to a 32bit mysql database on another server via win-mysql 32bit ODBC connector)

Where things stand currently:

  • No changes have been made to our classic ASP application source code.
  • No applications were installed recently on the server.
  • No changes made to the website conf/app in IIS
  • Disk space looks fine. Disk check OK. CPU looks OK.

What I have done so far without success:

  • Deleted website & app in IIS and recreated.
  • Isolated website in IIS - turned all other websites and apps off.
  • Uninstalled windows updates < 80 days (I have since reinstalled after discovering it made no difference)
  • Performed a system restore of server state/config < 75 days
0
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
Exploring ASP.NET Core: Fundamentals
LVL 12
Exploring ASP.NET Core: Fundamentals

Learn to build web apps and services, IoT apps, and mobile backends by covering the fundamentals of ASP.NET Core and  exploring the core foundations for app libraries.

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
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

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.