hur

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.

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

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.

'**
'* 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..

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

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

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

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

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

	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

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

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>

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

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

"Fel på sidan"

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.

Okej, i IE står det..

Syntaxfel rad 30 tecken 73..

ska testa FF också

rad 30 f.ö

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

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.