---
title: "hur"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/153729-hur"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "Jeppeweb"
published: "2006-11-13T22:12:46.000Z"
updated: "2006-11-14T12:32:26.000Z"
replies: 28
views: 712
page: 1
pages: 2
language: "sv-SE"
site: "webForum — webforum.nu"
rights: "Upphovsrätten till varje inlägg tillhör dess författare."
attribution: "Citera som: webForum, https://www.webforum.nu/amne/asp/153729-hur"
---

# hur

_Sida 1 av 2._

## #1 — Jeppeweb, 2006-11-13T22:12Z

hur förhindrar jag att det automatiskt blir ett mellanslag i skrivrutan "PostNr" ?

```
<%@ Language=VBScript %><%
Option Explicit

Public Function JSEscape(Value) 
Dim Char 
Dim Index 
Dim Length 
Dim Offset 
Dim Buffer 
   Length = Len(Value) 
   Buffer = Value & Space(Length) 
   For Index = 1 To Len(Value) 
       Char = Mid(Value, Index, 1) 
       Select Case Asc(Char) 
       Case &H27 'single quote ' 
           Mid(Buffer, Index + Offset, 2) = "\'" 
           Offset = Offset + 1 
       Case &H22 'double quote " 
           Mid(Buffer, Index + Offset, 2) = "\""" 
           Offset = Offset + 1 
       Case &H8 'backspace <BS> 
           Mid(Buffer, Index + Offset, 2) = "\b" 
           Offset = Offset + 1 
       Case &H5C 'backslash             Mid(Buffer, Index + Offset, 2) = "\\" 
           Offset = Offset + 1 
       Case &H9 'horizontal tab <HT> 
           Mid(Buffer, Index + Offset, 2) = "\t" 
           Offset = Offset + 1 
       Case &HA 'line feed (new line) <LF> 
           Mid(Buffer, Index + Offset, 2) = "\n" 
           Offset = Offset + 1 
       Case &HB 'vertical tab <VT> 
           Mid(Buffer, Index + Offset, 2) = "\v" 
           Offset = Offset + 1 
       Case &HC 'form feed <FF> 
           Mid(Buffer, Index + Offset, 2) = "\f" 
           Offset = Offset + 1 
       Case &HD 'carriage return <CR> 
           Mid(Buffer, Index + Offset, 2) = "\r" 
           Offset = Offset + 1 
       Case Else 
           If Offset Then 
               Mid(Buffer, Index + Offset, 2) = Char 
           End If 
       End Select 
   Next 
    
   JSEscape = Left(Buffer, Length + Offset) 
End Function 

Dim rs
Dim con

Dim fldOrt
Dim fldPostNr
Dim LastOrt

Const adCmdTable = 2 

'**
'* ASP/VBScript: Förbereder svaret
'**
	Response.Buffer = True 
	Response.Expires = 1440 '1 Dag
    Response.ContentType ="text/javascript"
	Response.AddHeader "Content-Transfer-Encoding", "text" 
    Response.AddHeader "Content-Disposition", "filename=PostNummer.js"

'**
'* JavaScript: Array som håller orter för postnummer
'**
	Response.Write "var postnr = loadPostnr();" & vbCrLF

'**
'* JavaScript: Funktion formaterar postnummer
'**
	Response.Write "/**" & vbCrLf
	Response.Write " * Function: formatPostNr(postNr)" & vbCrLf
	Response.Write " *   Parameter: postNr - Postnummer som skall formateras" & vbCrLf
	Response.Write " *   Return value: Formaterat postnummer" & vbCrLf
	Response.Write " **/" & vbCrLf

	Response.Write "function formatPostNr(postNr)" & vbCrLf
	Response.Write "{" & vbCrLf
	Response.Write "	var strText = postNr.replace(/\D/gi, '');" & vbCrLf
	Response.Write "	var strPostNr = strText.substring(0, 3) + ' ' + strText.substring(3, 5);" & vbCrLf
	
	Response.Write "	return strPostNr;" & vbCrLf
	Response.Write "}" & vbCrLf

'**
'* JavaScript: Funktion som hämtar Ortnamn för angivet postnummer
'**
	Response.Write "/**" & vbCrLf
	Response.Write " * Function: getOrtnamn(postNr, noMatch)" & vbCrLf
	Response.Write " *   Parameter: postNr - Postnummer som kontrolleras" & vbCrLf
	Response.Write " *   Parameter: noMatch - Svar som ges om postNr ej finns" & vbCrLf
	Response.Write " *   Return value: Funnet Ortnamn eller noMatch" & vbCrLf
	Response.Write " **/" & vbCrLf

	Response.Write "function getOrtnamn(postNr, noMatch)" & vbcrlf
	Response.Write "{" & vbcrlf
	Response.Write "	var re = /\d{5}/" & vbcrlf
	Response.Write "	var strText = postNr.replace(/\D/gi, '');" & vbcrlf
	
	Response.Write "	if (re.test(strText))" & vbcrlf
	Response.Write "	{" & vbcrlf
	Response.Write "		var intPostNr = parseInt(strText);" & vbcrlf
	Response.Write "		var x = postnr[intPostNr];" & vbcrlf
	Response.Write "		if (x==undefined)" & vbcrlf
	Response.Write "		{" & vbcrlf
	Response.Write "			window.status='Fann ingen ort för postnummer: \""' + strPostNr + '\"" ';" & vbcrlf
	Response.Write "		}" & vbcrlf
	Response.Write "		else" & vbcrlf
	Response.Write "		{" & vbcrlf
	Response.Write "			window.status='';" & vbcrlf
	Response.Write "			return x;" & vbcrlf
	Response.Write "		}" & vbcrlf
	Response.Write "	}" & vbcrlf
	Response.Write "	else" & vbcrlf
	Response.Write "	{" & vbcrlf
	Response.Write "		window.status='\""' + postNr + '\"" är inget nummer';" & vbcrlf
	Response.Write "	}" & vbcrlf
	Response.Write "	return noMatch;" & vbcrlf
	Response.Write "}" & vbcrlf

'**
'* JavaScript: Funktion som laddar postnummer och Ortnamn 
'**
	Response.Write "function loadPostnr()" & vbcrlf
	Response.Write "{" & vbcrlf
	Response.Write "var o;" & vbCrLF
	Response.Write "var p = new Array();" & vbCrLF

'**
'* ASP/VBScript: Öppnar databasen
'**
	Set con = Server.CreateObject("ADODB.Connection")  
	con.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("db/PostNr.mdb") 
    
	Set rs = Server.CreateObject("ADODB.Recordset")

'**
'* ASP/VBScript: skapar javascript koden för postnr 
'**
	rs.Open "qrySelectOrtNummer", con, , , adCmdTable
	Set fldOrt = rs("Ort")
	Set fldPostNr = rs("PostNr")
	Do Until rs.EOf 
		If LastOrt = fldOrt.Value Then
		Else
			LastOrt = fldOrt.Value
			Response.Write vbCrLF & "o='" & JSEscape(LastOrt) & "';" & vbCrLF
		End If
		Response.Write "p[" & fldPostNr.Value & "]=o;"		
		rs.MoveNext 
	Loop
	Set fldOrt = Nothing
	Set fldPostNr = Nothing
	rs.Close 
		
'**
'* ASP/VBScript: Frigör objekt
'**
	Set rs.ActiveConnection = Nothing
	Set rs = Nothing
		
	con.Close 
	Set con = Nothing		

	Response.Write "return p;" & vbcrlf
	Response.Write "}" & vbcrlf
%>
```

Permalänk: https://www.webforum.nu/p/153729

## #2 — @nders, 2006-11-14T05:22Z

Ta bort mellanslaget som läggs till i javascriptfunktionen formatPostNr:

```
	Response.Write "	var strPostNr = strText.substring(0, 3) + ' ' + strText.substring(3, 5);" & vbCrLf
```

Du kan ta bort den raden, och returnera *strText* från funktionen istället.

och du, tänk på att skriva vettiga trådrubriker.

Permalänk: https://www.webforum.nu/p/1895755

## #3 — Jeppeweb, 2006-11-14T06:00Z

okej, tack.. hur gör jag för att skriva ut på sidan när ngt är fel som t.ex ett invalidt postnummer ? just nu skrivs de ut i statusbar.. men jag vill få de utskrivet på sidan

tack på förhand

Permalänk: https://www.webforum.nu/p/1895757

## #4 — @nders, 2006-11-14T06:04Z

Det framgår inte av den kod du visar, men antagligen har du någonstans en javascript-kodrad typ *window.status = 'felaktigt postnummer';*. Byt det till *document.getElementById('errordiv').innerHTML='felaktigt postnummer';* och lägg till:

```
<div id="errordiv"></div>
```

, där du vill ha felmeddelandet.

Permalänk: https://www.webforum.nu/p/1895758

## #5 — Jeppeweb, 2006-11-14T06:22Z

```
'**
'* JavaScript: Funktion som hämtar Ortnamn för angivet postnummer
'**
	Response.Write "/**" & vbCrLf
	Response.Write " * Function: getOrtnamn(postNr, noMatch)" & vbCrLf
	Response.Write " *   Parameter: postNr - Postnummer som kontrolleras" & vbCrLf
	Response.Write " *   Parameter: noMatch - Svar som ges om postNr ej finns" & vbCrLf
	Response.Write " *   Return value: Funnet Ortnamn eller noMatch" & vbCrLf
	Response.Write " **/" & vbCrLf

	Response.Write "function getOrtnamn(postNr, noMatch)" & vbcrlf
	Response.Write "{" & vbcrlf
	Response.Write "	var re = /\d{5}/" & vbcrlf
	Response.Write "	var strText = postNr.replace(/\D/gi, '');" & vbcrlf
	
	Response.Write "	if (re.test(strText))" & vbcrlf
	Response.Write "	{" & vbcrlf
	Response.Write "		var intPostNr = parseInt(strText);" & vbcrlf
	Response.Write "		var x = postnr[intPostNr];" & vbcrlf
	Response.Write "		if (x==undefined)" & vbcrlf
	Response.Write "		{" & vbcrlf
	Response.Write "			window.status='Fann ingen ort för postnummer: \""' + strPostNr + '\"" ';" & vbcrlf
	Response.Write "		}" & vbcrlf
	Response.Write "		else" & vbcrlf
	Response.Write "		{" & vbcrlf
	Response.Write "			window.status='';" & vbcrlf
	Response.Write "			return x;" & vbcrlf
	Response.Write "		}" & vbcrlf
	Response.Write "	}" & vbcrlf
	Response.Write "	else" & vbcrlf
	Response.Write "	{" & vbcrlf
	Response.Write "		window.status='\""' + postNr + '\"" är inget nummer';" & vbcrlf
	Response.Write "	}" & vbcrlf
	Response.Write "	return noMatch;" & vbcrlf
	Response.Write "}" & vbcrlf
```

jag fick det inte att fungera.. ersatte med din kod..

Permalänk: https://www.webforum.nu/p/1895760

## #6 — @nders, 2006-11-14T07:06Z

... och hur ser det ut när du ersatt efter mitt förslag?

Permalänk: https://www.webforum.nu/p/1895762

## #7 — Jeppeweb, 2006-11-14T07:11Z

ingenting, det står "fel script" där nere, statusbar..

Permalänk: https://www.webforum.nu/p/1895763

## #8 — @nders, 2006-11-14T07:18Z

Jag menade hur din kod ser ut när du fixat efter mina förslag.

Permalänk: https://www.webforum.nu/p/1895765

## #9 — Jeppeweb, 2006-11-14T07:30Z

```
<%@ Language=VBScript %><%
Option Explicit

Public Function JSEscape(Value) 
Dim Char 
Dim Index 
Dim Length 
Dim Offset 
Dim Buffer 
   Length = Len(Value) 
   Buffer = Value & Space(Length) 
   For Index = 1 To Len(Value) 
       Char = Mid(Value, Index, 1) 
       Select Case Asc(Char) 
       Case &H27 'single quote ' 
           Mid(Buffer, Index + Offset, 2) = "\'" 
           Offset = Offset + 1 
       Case &H22 'double quote " 
           Mid(Buffer, Index + Offset, 2) = "\""" 
           Offset = Offset + 1 
       Case &H8 'backspace <BS> 
           Mid(Buffer, Index + Offset, 2) = "\b" 
           Offset = Offset + 1 
       Case &H5C 'backslash             Mid(Buffer, Index + Offset, 2) = "\\" 
           Offset = Offset + 1 
       Case &H9 'horizontal tab <HT> 
           Mid(Buffer, Index + Offset, 2) = "\t" 
           Offset = Offset + 1 
       Case &HA 'line feed (new line) <LF> 
           Mid(Buffer, Index + Offset, 2) = "\n" 
           Offset = Offset + 1 
       Case &HB 'vertical tab <VT> 
           Mid(Buffer, Index + Offset, 2) = "\v" 
           Offset = Offset + 1 
       Case &HC 'form feed <FF> 
           Mid(Buffer, Index + Offset, 2) = "\f" 
           Offset = Offset + 1 
       Case &HD 'carriage return <CR> 
           Mid(Buffer, Index + Offset, 2) = "\r" 
           Offset = Offset + 1 
       Case Else 
           If Offset Then 
               Mid(Buffer, Index + Offset, 2) = Char 
           End If 
       End Select 
   Next 
    
   JSEscape = Left(Buffer, Length + Offset) 
End Function 

Dim rs
Dim con

Dim fldOrt
Dim fldPostNr
Dim LastOrt

Const adCmdTable = 2 

'**
'* ASP/VBScript: Förbereder svaret
'**
	Response.Buffer = True 
	Response.Expires = 1440 '1 Dag
    Response.ContentType ="text/javascript"
	Response.AddHeader "Content-Transfer-Encoding", "text" 
    Response.AddHeader "Content-Disposition", "filename=PostNummer.js"

'**
'* JavaScript: Array som håller orter för postnummer
'**
	Response.Write "var postnr = loadPostnr();" & vbCrLF

'**
'* JavaScript: Funktion formaterar postnummer
'**
	Response.Write "/**" & vbCrLf
	Response.Write " * Function: formatPostNr(postNr)" & vbCrLf
	Response.Write " *   Parameter: postNr - Postnummer som skall formateras" & vbCrLf
	Response.Write " *   Return value: Formaterat postnummer" & vbCrLf
	Response.Write " **/" & vbCrLf

	Response.Write "function formatPostNr(postNr)" & vbCrLf
	Response.Write "{" & vbCrLf
	Response.Write "	var strText = postNr.replace(/\D/gi, '');" & vbCrLf
	Response.Write "	var strPostNr = strText.substring(0, 3) + ' ' + strText.substring(3, 5);" & vbCrLf
	
	Response.Write "	return strPostNr;" & vbCrLf
	Response.Write "}" & vbCrLf

'**
'* JavaScript: Funktion som hämtar Ortnamn för angivet postnummer
'**
	Response.Write "/**" & vbCrLf
	Response.Write " * Function: getOrtnamn(postNr, noMatch)" & vbCrLf
	Response.Write " *   Parameter: postNr - Postnummer som kontrolleras" & vbCrLf
	Response.Write " *   Parameter: noMatch - Svar som ges om postNr ej finns" & vbCrLf
	Response.Write " *   Return value: Funnet Ortnamn eller noMatch" & vbCrLf
	Response.Write " **/" & vbCrLf

	Response.Write "function getOrtnamn(postNr, noMatch)" & vbcrlf
	Response.Write "{" & vbcrlf
	Response.Write "	var re = /\d{5}/" & vbcrlf
	Response.Write "	var strText = postNr.replace(/\D/gi, '');" & vbcrlf
	
	Response.Write "	if (re.test(strText))" & vbcrlf
	Response.Write "	{" & vbcrlf
	Response.Write "		var intPostNr = parseInt(strText);" & vbcrlf
	Response.Write "		var x = postnr[intPostNr];" & vbcrlf
	Response.Write "		if (x==undefined)" & vbcrlf
	Response.Write "		{" & vbcrlf
	Response.Write "		document.getElementById('errordiv').innerHTML='felaktigt postnummer';
	Response.Write "		}" & vbcrlf
	Response.Write "		else" & vbcrlf
	Response.Write "		{" & vbcrlf
	Response.Write "		document.getElementById('errordiv').innerHTML='felaktigt postnummer';
	Response.Write "			return x;" & vbcrlf
	Response.Write "		}" & vbcrlf
	Response.Write "	}" & vbcrlf
	Response.Write "	else" & vbcrlf
	Response.Write "	{" & vbcrlf
	Response.Write "	document.getElementById('errordiv').innerHTML='felaktigt postnummer';	Response.Write "	}" & vbcrlf
	Response.Write "	return noMatch;" & vbcrlf
	Response.Write "}" & vbcrlf

'**
'* JavaScript: Funktion som laddar postnummer och Ortnamn 
'**
	Response.Write "function loadPostnr()" & vbcrlf
	Response.Write "{" & vbcrlf
	Response.Write "var o;" & vbCrLF
	Response.Write "var p = new Array();" & vbCrLF

'**
'* ASP/VBScript: Öppnar databasen
'**
	Set con = Server.CreateObject("ADODB.Connection")  
	con.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("db/PostNr.mdb") 
    
	Set rs = Server.CreateObject("ADODB.Recordset")

'**
'* ASP/VBScript: skapar javascript koden för postnr 
'**
	rs.Open "qrySelectOrtNummer", con, , , adCmdTable
	Set fldOrt = rs("Ort")
	Set fldPostNr = rs("PostNr")
	Do Until rs.EOf 
		If LastOrt = fldOrt.Value Then
		Else
			LastOrt = fldOrt.Value
			Response.Write vbCrLF & "o='" & JSEscape(LastOrt) & "';" & vbCrLF
		End If
		Response.Write "p[" & fldPostNr.Value & "]=o;"		
		rs.MoveNext 
	Loop
	Set fldOrt = Nothing
	Set fldPostNr = Nothing
	rs.Close 
		
'**
'* ASP/VBScript: Frigör objekt
'**
	Set rs.ActiveConnection = Nothing
	Set rs = Nothing
		
	con.Close 
	Set con = Nothing		

	Response.Write "return p;" & vbcrlf
	Response.Write "}" & vbcrlf
%>

<div id="errordiv"></div>
```

Permalänk: https://www.webforum.nu/p/1895769

## #10 — @nders, 2006-11-14T07:32Z

Du måste avsluta dina response.write med ". (Där du lagt in document.getElementById-grejerna)
Dessutom kan du lägga in en vbcrlf efter som det är på de andra raderna.

(Jag förstår dock inte alls varför allt javascript skrivs ut med asp, det gör koden grymt svårläst).

Permalänk: https://www.webforum.nu/p/1895770

## #11 — Jeppeweb, 2006-11-14T07:36Z

```
	Response.Write "/**" & vbCrLf
	Response.Write " * Function: getOrtnamn(postNr, noMatch)" & vbCrLf
	Response.Write " *   Parameter: postNr - Postnummer som kontrolleras" & vbCrLf
	Response.Write " *   Parameter: noMatch - Svar som ges om postNr ej finns" & vbCrLf
	Response.Write " *   Return value: Funnet Ortnamn eller noMatch" & vbCrLf
	Response.Write " **/" & vbCrLf

	Response.Write "function getOrtnamn(postNr, noMatch)" & vbcrlf
	Response.Write "{" & vbcrlf
	Response.Write "	var re = /\d{5}/" & vbcrlf
	Response.Write "	var strText = postNr.replace(/\D/gi, '');" & vbcrlf
	
	Response.Write "	if (re.test(strText))" & vbcrlf
	Response.Write "	{" & vbcrlf
	Response.Write "		var intPostNr = parseInt(strText);" & vbcrlf
	Response.Write "		var x = postnr[intPostNr];" & vbcrlf
	Response.Write "		if (x==undefined)" & vbcrlf
	Response.Write "		{" & vbcrlf
	Response.Write "		document.getElementById('errordiv').innerHTML='felaktigt postnummer'; & vbcrlf"
	Response.Write "		}" & vbcrlf
	Response.Write "		else" & vbcrlf
	Response.Write "		{" & vbcrlf
	Response.Write "		document.getElementById('errordiv').innerHTML='felaktigt postnummer'; & vbcrlf"
	Response.Write "			return x;" & vbcrlf
	Response.Write "		}" & vbcrlf
	Response.Write "	}" & vbcrlf
	Response.Write "	else" & vbcrlf
	Response.Write "	{" & vbcrlf
	Response.Write "	document.getElementById('errordiv').innerHTML='felaktigt postnummer';"	
	Response.Write "	}" & vbcrlf
	Response.Write "	return noMatch;" & vbcrlf
	Response.Write "}" & vbcrlf
```

doesnt work

Permalänk: https://www.webforum.nu/p/1895771

## #12 — @nders, 2006-11-14T07:39Z

Titta på de andra raderna så ser du att citationstecknet ska vara efter javascript-raden, före **& vbcrlf**.

Permalänk: https://www.webforum.nu/p/1895773

## #13 — Jeppeweb, 2006-11-14T07:43Z

fungerar fortfarande inte.. :/

```
<%@ Language=VBScript %><%
Option Explicit

Public Function JSEscape(Value) 
Dim Char 
Dim Index 
Dim Length 
Dim Offset 
Dim Buffer 
   Length = Len(Value) 
   Buffer = Value & Space(Length) 
   For Index = 1 To Len(Value) 
       Char = Mid(Value, Index, 1) 
       Select Case Asc(Char) 
       Case &H27 'single quote ' 
           Mid(Buffer, Index + Offset, 2) = "\'" 
           Offset = Offset + 1 
       Case &H22 'double quote " 
           Mid(Buffer, Index + Offset, 2) = "\""" 
           Offset = Offset + 1 
       Case &H8 'backspace <BS> 
           Mid(Buffer, Index + Offset, 2) = "\b" 
           Offset = Offset + 1 
       Case &H5C 'backslash             Mid(Buffer, Index + Offset, 2) = "\\" 
           Offset = Offset + 1 
       Case &H9 'horizontal tab <HT> 
           Mid(Buffer, Index + Offset, 2) = "\t" 
           Offset = Offset + 1 
       Case &HA 'line feed (new line) <LF> 
           Mid(Buffer, Index + Offset, 2) = "\n" 
           Offset = Offset + 1 
       Case &HB 'vertical tab <VT> 
           Mid(Buffer, Index + Offset, 2) = "\v" 
           Offset = Offset + 1 
       Case &HC 'form feed <FF> 
           Mid(Buffer, Index + Offset, 2) = "\f" 
           Offset = Offset + 1 
       Case &HD 'carriage return <CR> 
           Mid(Buffer, Index + Offset, 2) = "\r" 
           Offset = Offset + 1 
       Case Else 
           If Offset Then 
               Mid(Buffer, Index + Offset, 2) = Char 
           End If 
       End Select 
   Next 
    
   JSEscape = Left(Buffer, Length + Offset) 
End Function 

Dim rs
Dim con

Dim fldOrt
Dim fldPostNr
Dim LastOrt

Const adCmdTable = 2 

'**
'* ASP/VBScript: Förbereder svaret
'**
	Response.Buffer = True 
	Response.Expires = 1440 '1 Dag
    Response.ContentType ="text/javascript"
	Response.AddHeader "Content-Transfer-Encoding", "text" 
    Response.AddHeader "Content-Disposition", "filename=PostNummer.js"

'**
'* JavaScript: Array som håller orter för postnummer
'**
	Response.Write "var postnr = loadPostnr();" & vbCrLF

'**
'* JavaScript: Funktion formaterar postnummer
'**
	Response.Write "/**" & vbCrLf
	Response.Write " * Function: formatPostNr(postNr)" & vbCrLf
	Response.Write " *   Parameter: postNr - Postnummer som skall formateras" & vbCrLf
	Response.Write " *   Return value: Formaterat postnummer" & vbCrLf
	Response.Write " **/" & vbCrLf

	Response.Write "function formatPostNr(postNr)" & vbCrLf
	Response.Write "{" & vbCrLf
	Response.Write "	var strText = postNr.replace(/\D/gi, '');" & vbCrLf
	Response.Write "	var strPostNr = strText.substring(0, 3) + ' ' + strText.substring(3, 5);" & vbCrLf
	
	Response.Write "	return strPostNr;" & vbCrLf
	Response.Write "}" & vbCrLf

'**
'* JavaScript: Funktion som hämtar Ortnamn för angivet postnummer
'**
	Response.Write "/**" & vbCrLf
	Response.Write " * Function: getOrtnamn(postNr, noMatch)" & vbCrLf
	Response.Write " *   Parameter: postNr - Postnummer som kontrolleras" & vbCrLf
	Response.Write " *   Parameter: noMatch - Svar som ges om postNr ej finns" & vbCrLf
	Response.Write " *   Return value: Funnet Ortnamn eller noMatch" & vbCrLf
	Response.Write " **/" & vbCrLf

	Response.Write "function getOrtnamn(postNr, noMatch)" & vbcrlf
	Response.Write "{" & vbcrlf
	Response.Write "	var re = /\d{5}/" & vbcrlf
	Response.Write "	var strText = postNr.replace(/\D/gi, '');" & vbcrlf
	
	Response.Write "	if (re.test(strText))" & vbcrlf
	Response.Write "	{" & vbcrlf
	Response.Write "		var intPostNr = parseInt(strText);" & vbcrlf
	Response.Write "		var x = postnr[intPostNr];" & vbcrlf
	Response.Write "		if (x==undefined)" & vbcrlf
	Response.Write "		{" & vbcrlf
	Response.Write "		document.getElementById('errordiv').innerHTML='felaktigt postnummer';" & vbcrlf
	Response.Write "		}" & vbcrlf
	Response.Write "		else" & vbcrlf
	Response.Write "		{" & vbcrlf
	Response.Write "		document.getElementById('errordiv').innerHTML='felaktigt postnummer';" & vbcrlf
	Response.Write "			return x;" & vbcrlf
	Response.Write "		}" & vbcrlf
	Response.Write "	}" & vbcrlf
	Response.Write "	else" & vbcrlf
	Response.Write "	{" & vbcrlf
	Response.Write "	document.getElementById('errordiv').innerHTML='felaktigt postnummer';" & vbcrlf	
	Response.Write "	}" & vbcrlf
	Response.Write "	return noMatch;" & vbcrlf
	Response.Write "}" & vbcrlf

'**
'* JavaScript: Funktion som laddar postnummer och Ortnamn 
'**
	Response.Write "function loadPostnr()" & vbcrlf
	Response.Write "{" & vbcrlf
	Response.Write "var o;" & vbCrLF
	Response.Write "var p = new Array();" & vbCrLF

'**
'* ASP/VBScript: Öppnar databasen
'**
	Set con = Server.CreateObject("ADODB.Connection")  
	con.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("db/PostNr.mdb") 
    
	Set rs = Server.CreateObject("ADODB.Recordset")

'**
'* ASP/VBScript: skapar javascript koden för postnr 
'**
	rs.Open "qrySelectOrtNummer", con, , , adCmdTable
	Set fldOrt = rs("Ort")
	Set fldPostNr = rs("PostNr")
	Do Until rs.EOf 
		If LastOrt = fldOrt.Value Then
		Else
			LastOrt = fldOrt.Value
			Response.Write vbCrLF & "o='" & JSEscape(LastOrt) & "';" & vbCrLF
		End If
		Response.Write "p[" & fldPostNr.Value & "]=o;"		
		rs.MoveNext 
	Loop
	Set fldOrt = Nothing
	Set fldPostNr = Nothing
	rs.Close 
		
'**
'* ASP/VBScript: Frigör objekt
'**
	Set rs.ActiveConnection = Nothing
	Set rs = Nothing
		
	con.Close 
	Set con = Nothing		

	Response.Write "return p;" & vbcrlf
	Response.Write "}" & vbcrlf
%>

<div id="errordiv"></div>
```

Permalänk: https://www.webforum.nu/p/1895774

## #14 — @nders, 2006-11-14T07:44Z

... och på vilket sätt funkar det inte?
Javascriptfel? ASP-fel?

Permalänk: https://www.webforum.nu/p/1895776

## #15 — Jeppeweb, 2006-11-14T07:47Z

Javascriptfel.. det går inte att se förutom att det är en gul ikon och "fel script" i statusbar?

Permalänk: https://www.webforum.nu/p/1895777

## #16 — Jeppeweb, 2006-11-14T07:47Z

"Fel på sidan"

Permalänk: https://www.webforum.nu/p/1895778

## #17 — @nders, 2006-11-14T07:49Z

Ok. Kör sidan i någon vettig webbläsare, typ Firefox, och använd javascriptdebuggern (Tools -\> Javascript console), så går det att reda ut vad som är fel.

I IE kan man dubbelklicka på den gula ikonen och få lite (pyttelite) mer info, åtminstone ett felmeddelande.

Permalänk: https://www.webforum.nu/p/1895779

## #18 — Jeppeweb, 2006-11-14T07:50Z

Okej, i IE står det..

Syntaxfel rad 30 tecken 73..

ska testa FF också

Permalänk: https://www.webforum.nu/p/1895780

## #19 — Jeppeweb, 2006-11-14T07:51Z

rad 30 f.ö

       Case &HA 'line feed (new line) \<LF\> 
           Mid(Buffer, Index + Offset, 2) = "\\n" 
           Offset = Offset + 1

Permalänk: https://www.webforum.nu/p/1895782

## #20 — @nders, 2006-11-14T07:52Z

Du kan inte titta på rad 30 i asp-filen, utan du måste titta i den kod som genererats och skickats till webbläsaren.

Permalänk: https://www.webforum.nu/p/1895783

---

Tråden på webben: https://www.webforum.nu/amne/asp/153729-hur  
Nästa sida: https://www.webforum.nu/amne/asp/153729-hur/page2.md