Hello there I have looked through the interweb and cannot seem to find anything except TRIM to remove spaces.

Unfortunately Trim remove pre and post spaces, which I do not require

I was to remove the spaces within a field

eg. Te Awe Awe Gardner --> TeAweAweGardner

Any help would be great

I have  sun server that runs a local application that uses the following ports: JMS 5630, XML 9672,
ASP Http 80 and ASP https 443, i can only telnet to port 80, telneting to the other ports I get
unable to connect to remote host: connection refused. I checked the /etc/services and I do not see the ports listed.
BTW: This application used to work without problems...

Thanks

<form method="post" action="contact.asp">
                        <b>Envíenos un mensaje</b> <span></span>
                        <input type="text" name="fname" id="fname" value="Nombre">
                        <input type="text" name="email" id="email" value="Dirección de Email">
                        <select name="Consultorio">
                            <option>Elija Consultorio...</option>
                            <option>Queretaro</option>
                            <option>San Miguel</option>
                        </select>
                        <textarea name="message" id="message" cols="30" rows="10">Escriba aquí su mensaje...</textarea>
                        <input type="submit"  name="send" id="send" value="Enviar Mensaje">
                    </form>

how do i set a input name in the select in order to asp read the select option?
regards

After this code runs and adds a record to the recordset, I am unable to add any more entries into the record. I believe the record is getting locked by the database since it detected changes, but I'm not sure how to remove that through access. I have verified this code works properly besides the unintended side effect of being unable to repeatedly do it. Does anyone know how to unlock the record so everyone can access it after this runs?

    Set ClientRS = CurrentDb.OpenRecordset("Client Contacts", dbOpenDynaset, dbSeeChanges)
   
    With ClientRS
        .AddNew
        ![id] = ClientID
        ![Full Name] = FullName
        ![Phone Number] = PhoneNumber.Value
        ![Company] = "Other"
        .Update
        .Close
    End With

    Set ClientRS = Nothing
   
    DoCmd.Close acForm, "Add Phone Record", acSavePrompt
End Sub

Is this even possible?

I have select dropdown A containing - among other things - value x.
I have text input field B which is empty by default.

Now, if x in A is selected I want to check if B has a value. In a perfect scenario I would also want to check if B has a specific value.

Possible? If so - how? I can do the basic validate form stuff, but this turns into a if/and/then scenario that I'm unfamiliar with.

Best regards
Michael

I want to create a new asp website with the following tasks: login, signup, and view products after login, the site connect to MSSQL database
and I have to build a mobile application using wml and wmlscript.

I've done this task but I've made my pages mixed (all pages with asp extension have the wml and vb code)
now I should separate the code and publish my asp website and design an android application that connect to this site.

P.S it is a homework, and I should design two mobile applications(one using wml and the other using andriod eclips)

can someone advise me how to separate asp files, I suppose these asp pages should return JSON object  but how I will handle it in wml code,
in the another application I will handle it using java

any hint will help me

Thanks

The title pretty much says it all.  I created my array as follows:

' Multidimensional Array
	' arrTransactions(col,row)
	ReDim arrTransactions(6,0) 

	
	' SQL Statement
	strSQLStatement = 	"SELECT transactionNumber, jobNumber, eventName, collateralID, arrivalDate, returnDate, quantity " & _  
						"FROM collateralOut " & _
						"WHERE collateralID  ='" & strCollateralID & "' " & _
						"ORDER BY arrivalDate DESC" 

	' Connection
	Set conn = Server.CreateObject("ADODB.Connection")
	conn.open connectionStr

	' Create our recordset
	set strFilename=Server.CreateObject("ADODB.recordset")
	strFilename.Open strSQLStatement, conn

	If Not strFilename.EOF Then
		strFilename.MoveFirst
		
		noRecord = "False"
		
		i = 0

		While Not strFilename.EOF

			arrTransactions(0,i) = strFilename.Fields("transactionNumber").Value
			arrTransactions(1,i) = strFilename.Fields("jobNumber").Value
			arrTransactions(2,i) = strFilename.Fields("eventName").Value
			arrTransactions(3,i) = strFilename.Fields("collateralID").Value
			arrTransactions(4,i) = strFilename.Fields("arrivalDate").Value
			arrTransactions(5,i) = strFilename.Fields("returnDate").Value
			arrTransactions(6,i) = strFilename.Fields("quantity").Value

			' Counter
			i = i + 1
			
			' Preserve array position
			ReDim Preserve arrTransactions(6,i)

			' Move to the next record
			strFilename.MoveNext
		Wend
		
	Else
		noRecord = "True"
	End If
	
	' Close our connection
	strFilename.Close
	Set strFilename = Nothing

Select all Open in new window

Then I wrote the following to loop through the array but it's not working:

                 <table border="1" cellpadding="5" cellspacing="1" width="80%">
                 	<tr>
                    	<td bgcolor="#eeeff0"><strong>Trans#</strong></td>
                        <td bgcolor="#eeeff0"><strong>Event Name</strong></td>
                        <td bgcolor="#eeeff0"><strong>Event Start</strong></td>
                        <td bgcolor="#eeeff0"><strong>Qty Ordered</strong></td>
                    <tr>
                 	<%
						If NoRecord = "False" Then
							For i=0 to (UBOUND(arrTransactions) - 1)
					%>
					<tr>
                    	<td valign="top"><%= arrTransactions(0,i) %></td>
                  		<td><%= HTMLDecode(arrTransactions(2,i) ) %></td>
                        <td valign="top"><%= arrTransactions(4,i) %></td>
                        <td valign="top" align="center"><%= arrTransactions(6,i) %></td>	
                    </tr>
					<%
							Next
						Else
					%>
					<tr>
                    	<td colspan="5"><strong>No Records Found</strong></td>
					</tr>
					<%
					End If 
					%>
                </table>

Select all Open in new window

When I load the page it only loads 6 records and stops.  There are about 30 records the page should be displaying.  

I have a feeling that this line here is wrong...

For i=0 to (UBOUND(arrTransactions) - 1)

Select all Open in new window

... but I'm not sure how to fix it.  Can someone please help me?

I am using a modified HTML form provided by Insightly on a website to capture data, do a Google reCAPTCHA verification, and then POST the data to Insightly. All of the text data is posting correctly, but the checkboxes are not. I am doing this with Classic ASP. The script which sends the data looks like this:

<%	set objXML=server.createobject("MSXML2.ServerXMLHTTP")

	objXML.Open "POST", "https://googleapps.insight.ly/WebToLead/Create", False
	objXML.SetRequestHeader "Content-Type", "application/x-www-form-urlencoded"
	objXML.Send data

	response.write(objXML.responseText) %>

Select all Open in new window

The HTML checkboxes (as provided by Insightly) look like this:

<label for="insightly_LEAD_FIELD_23">St. Mary's </label><input id="insightly_LEAD_FIELD_23" name="LEAD_FIELD_23" type="checkbox" />

Select all Open in new window

I am capturing the user's input and attempting to post the result to Insightly, however the checkbox data is not passing through. There is no "value" attribute in the checkbox, so I'm not sure what to send.

The value of the "data" variable in the first bit of code above looks like this:

formId=xxx&FirstName=Sample+First+Name&LastName=Sample+Last+Name&email=me%40domain%2Ecom&phone=1234567890&LEAD_FIELD_22=abc%0D%0A123&ResponsibleUser=510943&LeadSource=28860&LEAD_FIELD_16=&LEAD_FIELD_21=&LEAD_FIELD_17=&LEAD_FIELD_23=

I have also tried a variable on that data, which also does not work, like this:

formId=xxx&FirstName=Sample+First+Name&LastName=Sample+Last+Name&email=me%40domain%2Ecom&phone=1234567890&LEAD_FIELD_22=abc%0D%0A123&ResponsibleUser=510943&LeadSource=28860&LEAD_FIELD_16=&LEAD_FIELD_21=&LEAD_FIELD_17=&LEAD_FIELD_23=St+Marys

The variables generally ARE working, such as FirstName, LastNAme, email, etc. Its the LEAD_FIELD_XX fields which I am not able to populate correctly.

Any idea what I could be doing wrong? Thanks!

Hi Expert,

In a ASP page this is normally not a problem but jquery mobile seems to make this a little harder.
I'd like to load a popup from a jquery mobile page and fill in a form, submit it, store my value into a DB (left out in my example file) and then close the popup and refresh the initial index.html page.  

<html>
<head>
<meta charset="utf-8">
<meta http-equiv="Cache-Control" content="no-store" />
<meta name="viewport" content="width=device-width, initial-scale=1">
<link rel="stylesheet" href="../css/themes/default/jquery.mobile-1.4.5.min.css">
<script src="../js/jquery/jquery.js"></script>
<script src="../_assets/js/index.js"></script>
<script src="../js/jquery/jquery.mobile-1.4.5.min.js"></script>
</head>
<body>
<div data-role="main" id="ui-content" class="ui-content">
<a href="#popupnieuw" data-rel="popup" data-position-to="window" data-transition="pop"  data-mini="true" data-inline="true" data-theme="b" data-corners="true" data-shadow="true" data-wrapperels="span" class="ui-btn ui-btn-inline ui-icon-plus ui-btn-icon-left">Een onderwijs behoefte toevoegen</a>
<div data-role="popup" data-history="false" id="popupnieuw" data-dismissible="false" data-overlay-theme="b" data-theme="a" data-corners="false" data-tolerance="15,15">
<div data-role="header" data-theme="a">
<a href="#" data-rel="back" data-role="button" data-theme="a" data-icon="delete" data-iconpos="notext" data-position-to="window" class="ui-btn-right">Close</a>
<h1>Een nieue wens</h1>
</div>			

Select all Open in new window

…

I am getting the following error after completing the form on a contact us web page. This is the error:

ADODB.Fields error '800a0ea5'
Fields update failed. For further information, examine the Status property of individual field objects.
/contactus2.asp, line 33

The email account is on the same server as the webpage and requires authentication. The website was built in asp.



This is the script giving the error:


<%
      'Get Form Variables
customername = Trim(Request.Form("customername"))
email = Trim(Request.Form("email"))
messagetext = Trim(Request.Form("messagetext"))

      'Create and Send E-Mail
Dim objCDOSYSCon
      'Create the e-mail server object
Set objCDOSYSMail = Server.CreateObject("CDO.Message")
Set objCDOSYSCon = Server.CreateObject ("CDO.Configuration")
      'Out going SMTP server

objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "ws.i2hosting.com"
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpaccountname") = "alan@djlhosting.co.uk"
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = “**********”
…

Hello All;

OK, this is code that I found a while back, and posted here.
ASP Classic - Insert text, Line breaks and Code

The issue that I had, or am still having now, is that I am giving the user the option to choose the tags they want to use.
They can have as many tags as they need in their post.

The issue with the code in the link above is that it will only do one tag hard coded.
So, that I have done is added an REGGEX into it, and it works GREAT! for the highlighting,
However, adding this in, has messed up the main function of this code FUNCTION, and that is.
It adds the line breaks to everything OUTSIDE of the Code tags.

The REGGEX that I used and works is this.

Function Reggex(strString, strPattern, strReplace)

	Dim RE: Set RE = New RegExp

	With RE
		.Pattern = strPattern
		.Global = True
		.IgnoreCase = True
		Reggex = .Replace(strString, strReplace)
	End With
	
End Function

fString =   Reggex(fString, "\[code=(.*?)\](.*?)\[\/code=(.*?)\]", "<pre class=""line-numbers"" id=""code""><code class=""language-$1 demo"">$2</code></pre id=""code"">")

Select all Open in new window

The original code is this. (Modified to work in my project)

 	CodeTags(1,1,1) = "[ code=sql]" ' Remove the space between the bracket, 
 	CodeTags(1,2,1) = "[/ code=sql]" ' Remove the space between the bracket, 
 	CodeTags(1,1,2) = "<pre class=""line-numbers"" id=""code""><code class=""language-sql demo"">"
 	CodeTags(1,2,2) = "</code></pre id=""code"">"

Select all Open in new window

This is the entire script.

Select all Open in new window

…

Hi,

I have to relaunch a classic asp site we built a few years ago. The following is the script I used that worked before, I am nor sure why it now only works for a small file, when the file is larger, I am getting "this page cannot be displayed"error. This script is to let user download the file that just created. When I received the error, the file was generated on the server.  thanks

<%@Language="VBScript"%>
<%'Option Explicit%>
<%
If session.sessionid <> application(session("appvariable")) then 
	session.Abandon
	Response.Redirect "login.asp"
end if	
%>
<%Response.Buffer = true%>
<%
On Error Resume Next
Dim strPath
strPath = CStr(Request.QueryString("file"))

on error resume next
	if (request.querystring("EXCELZIPALL")=1) then
		filePath= Server.mapPath("../EXCELReports/EXCELBatchList") & "\"&replace(trim(SESSION("Companyname")),"@","-") & "-" & trim(SESSION("UserName"))
	else
		filePath= Server.mapPath("../EXCELReports")
    end if
if err.number<>0 then
	response.write err.description
	response.end
end if


'-- do some basic error checking for the QueryString
If strPath = "" Then
  Response.Clear
  Response.Write("No file specified.")
  Response.End
ElseIf InStr(strPath, "..") > 0 Then
  Response.Clear
  Response.Write("Illegal folder location.")
  Response.End
ElseIf Len(strPath) > 1024 Then
  Response.Clear
  Response.Write("Folder path too long.")
  Response.End
Else
  Call DownloadFile(strPath)
End If
  
Private Sub DownloadFile(file)
  '--declare 

Select all Open in new window

…

I need to convert seconds, out to the thousandths, to hh:mm:ss.xxx format.  I have a script that comes close but I believe it chops off the decimal seconds.  Can someone give me an alternative or show how to modify this one pleaes?

Function SecondsToTime(ByVal sglScnds)
  Dim hours, minutes, seconds

  ' calculates whole hours (like a div operator)
  hours = sglScnds \ 3600

  ' calculates the remaining number of seconds
  intSeconds = sglScnds Mod 3600

  ' calculates the whole number of minutes in the remaining number of seconds
  minutes = sglScnds \ 60

  ' calculates the remaining number of seconds after taking the number of minutes
  seconds = sglScnds Mod 60

  ' returns as a string
  SecondsToTime = hours & ":" & minutes & ":" & seconds
End Function

Select all Open in new window

Thank You!