webForumDet fria alternativet
Logga in / Bli medlem

hur

28 svar · 700 visningar · startad av Jeppeweb

JeppewebMedlem sedan sep. 2006462 inlägg
#1

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
%>
@ndersMedlem sedan juni 200032 969 inlägg
#2

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.

JeppewebMedlem sedan sep. 2006462 inlägg
#3

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

@ndersMedlem sedan juni 200032 969 inlägg
#4

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.

JeppewebMedlem sedan sep. 2006462 inlägg
#5
'**
'* 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..

@ndersMedlem sedan juni 200032 969 inlägg
#6

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

JeppewebMedlem sedan sep. 2006462 inlägg
#7

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

@ndersMedlem sedan juni 200032 969 inlägg
#8

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

JeppewebMedlem sedan sep. 2006462 inlägg
#9
<%@ 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>
@ndersMedlem sedan juni 200032 969 inlägg
#10

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

JeppewebMedlem sedan sep. 2006462 inlägg
#11
	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

@ndersMedlem sedan juni 200032 969 inlägg
#12

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

JeppewebMedlem sedan sep. 2006462 inlägg
#13

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>
@ndersMedlem sedan juni 200032 969 inlägg
#14

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

JeppewebMedlem sedan sep. 2006462 inlägg
#15

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

JeppewebMedlem sedan sep. 2006462 inlägg
#16

"Fel på sidan"

@ndersMedlem sedan juni 200032 969 inlägg
#17

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.

JeppewebMedlem sedan sep. 2006462 inlägg
#18

Okej, i IE står det..

Syntaxfel rad 30 tecken 73..

ska testa FF också

JeppewebMedlem sedan sep. 2006462 inlägg
#19

rad 30 f.ö

   Case &HA 'line feed (new line) \<LF\> 
       Mid(Buffer, Index + Offset, 2) = "\\n" 
       Offset = Offset + 1
@ndersMedlem sedan juni 200032 969 inlägg
#20

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.

140 ms totalt · 3 externa anrop · v20260731065814-full.fb544a5a
0 ms — hämta forumlista (cache)
0 ms — hämta statistik (cache)
136 ms — hämta tråd, inlägg och bilagor (db)