Här kommer ett problem jag egentligen inte skulle fråga om....För det är lite svårt att förklara...Men vi kan göra ett försök....
Det här är sidan...
Filter.asp
<Html>
<Head><link rel="stylesheet" href="textstyle.css" type="text/css">
<Head>
<body>
<table border="0" width="730" HEIGHT="140" cellspacing = "0">
<tr>
<td colspan="5"><center><h3>Telefonlista Prototyp</h3></center></tr>
<tr>
<td rowspan="2" width="70" VALIGN ="top" ><a href="../index.htm"><img src="./bilder/nxlogo.gif" border="0"></a></td>
<td rowspan="2" width="30"></td>
<td width="" VALIGN ="bottom" >
<Form Name="sokval2" METHOD="post" Action="filter.asp">
<INPUT TYPE="RADIO" VALUE="Affarsomr" NAME="alt2" onclick="document.sokval2.submit()" <%=checked(0)%>>Affärsområde<br>
<INPUT TYPE="RADIO" VALUE="Region" NAME="alt2" onclick="document.sokval2.submit()" <%=checked(1)%>>Region<br>
<INPUT TYPE="RADIO" VALUE="Enhet" NAME="alt2" onclick="document.sokval2.submit()" <%=checked(2)%>>Enhet<br>
<INPUT TYPE="RADIO" VALUE="Kontor" NAME="alt2" onclick="document.sokval2.submit()" <%=checked(3)%>>Kontor<br>
</td>
</Form>
<td width="280" VALIGN ="bottom">
<Form Name="sokval" METHOD="post" Action="filter.asp">
<INPUT TYPE="RADIO" VALUE="Fname" CHECKED NAME="alt1">Namn<br>
<INPUT TYPE="RADIO" VALUE="TelArb" NAME="alt1">Telefonnummer<br>
<INPUT TYPE="RADIO" VALUE="TelMob" NAME="alt1">Mobilnummer<br>
<INPUT TYPE="hidden" Name="orgval">
<INPUT type="hidden" value="Submit" id=submit1 name=submit1>
</td>
<%
'****************************************************************************************************************
' Här skapas den dynamiska SQL strängen
strSQL = "SELECT Fname,Lname,Enhet,Affarsomr,Region,Ort,TelMob,TelArb,PersonID from tlv_PersonAdress "
if len(Soktext)>0 and Sokval="Fname" then
strSQL = strSQL & "where ("&Sokval&" Like '%"&Soktext&"%' or Lname like '%"&Soktext&"%')"
elseif len(Soktext)>0 and Sokval <> "Fname" then
strSQL = strSQL & "where "&Sokval&" Like '%"&Soktext&"%'"
End if
'*****************
'*****************
if len(Soktext)>0 and len(omr)>0 and len(Sokval)<0 then
strSQL=strSQL & "and"
End if
if len(Orgval)>0 and len(omr)>0 and len(Sokval)>0 and len(Soktext)<=0 then
strSQL=strSQL & "Where"
End if
if len(Orgval)>0 and len(omr)>0 and len(Sokval)>0 and len(Soktext)>0 then
strSQL=strSQL & "and"
End if
if len(omr)>0 and len(SokVal)>0 then
strSQL=strSQL & " " & Omr & " = '"&Orgval&"'"
End if
if len(omr)>0 and len(SokVal)<=0 then
strSQL=strSQL & " where " & Omr & " = '"&Orgval&"'"
End if
session("strSQL")=strSQL
'********************************************************************************************************************
%>
<td width="50" Valign="top" align="right">
<a href="help.htm" target="top_" ><img src="./bilder/questionmark_red.jpg" border="0" alt="Instruktioner & Information"></a><br><br>
<a href="tillexcel.asp" target="visa_lista"><img src="./bilder/excel.jpg" border="0" alt="För att spara/skriva ut filtrerings resultatet i excel"></a>
</td>
<%Session("Omr")=request.form("alt2")%>
</tr>
<tr>
<td width="150" >
<%if not Request.Form("alt2")="" then%>
<%=Get_sokval(Request.Form("alt2"))%>
<%End If%>
</td>
<td>Fritext: <INPUT TYPE="TEXT" NAME="soktext" SIZE="30">
</td>
<td><INPUT TYPE="Button" value="Filtrera" onclick="document.sokval.submit(); parent.visa_lista.location.replace('VisaLista.asp'); return disableForm(this);"></td>
</tr>
</table>
</Form>
</body>
</Html>
Det här är sidan VisaLista.asp
<html>
<head>
<title>Telefonlista -PROTOTYP-</title>
<link rel="stylesheet" href="sortfalt.css" type="text/css">
</head>
<body>
<%
if len(Session("strSQL"))= 0 then
SQL2 = "SELECT Fname,Lname,Enhet,Affarsomr,Region,Ort,TelMob,TelArb,PersonID from tlv_PersonAdress "
else
SQL2=Session("strSQL")
end if
Dim what
Dim sort
if len(request.querystring("order"))<> 0 then
sort=request.querystring("order")
Else
sort="Fname"
End if
Dim Conn, RS
Dim SQLkor
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open connString
if len(Session("strSQL"))= 0 and request.querystring("order")="" then
SQL2=SQL2 & " Order by "&sort&" "
SQLkor=SQL2
Else
strSQL=session("strSQL") & " Order by "&sort&" "
SQLkor=strSQL
end if
Set RS = Conn.execute (SQLkor)
%>
<%Dim lank
lank = "./info_person.asp"%>
<table width="630" cellpadding="0" cellspacing="0" border="0" style="border-collapse: collapse" bordercolor="#111111">
<%
Do Until RS.EOF
Response.write "<tr><td width='3'></td><td valign='top' align='left' width='130' ><a href=" & lank & "?id=" & RS("personid") & " target='top_'><b>" & RS("Fname") & " " & RS("Lname") & "</b></a></td><td class=nex align=Left width='50'>"& RS("Enhet") &"</td> <td class=nex width='100'> "& RS("TelArb") &"</td><td class=nex width='100'> "& RS("TelMob") &"</td></tr>"
RS.movenext
Loop
Conn.Close
Set RS = nothing
%>
<tr>
<td bgcolor="#FFFFFF" width="550" valign="top" colspan="5">
<br>
<table border="0" cellpadding="4" cellspacing="0" width="100%">
<tr>
<td width="100%">
<hr size="1" width="80%" noshade color="#0000A0">
</td>
</tr>
<tr>
<td width="100%" align="center"><font face="Verdana, Arial, Helvetica" size="1">Under konstruktion av <a href="mailto:anders.ahlstrom@nexus.se">Anders Ahlström</a> och <a href="mailto:tobias.wester@nexus.se">Tobias wester</a>
</font></td>
</tr>
</table>
</td></tr>
</table>
<%session("SQLexcel")=SQLkor%>
</body>
</html>
Allt funkar utmärkt i IE 5.X
MEn frågan är vad är det som kan göra att det inte funkar i NS 6.X !
Nu till mitt problem....
När jag kör sidan i NS så måste jag trycka på submit knappen två gånger för att VisaLista.asp ska uppdateras med ny data...Första gången jag trycker laddas sidan om men datan ändras inte..trycker jag sedan en gång till utan att ändra min filtrering så blir allt rätt...vad kan problemet vara.... Puuu nu har jag skrivit av mig lite....
Frågan är om det inte har något med Javascripten att göra och då är jag ju i fel forum... Om så är fallet kan ni ju flytta tråden....
Ps:Order by kommer från en annan sida så bry er inte om det....
Jag får inget felmeddelande bara att det inte funkar i NS...
Tack på förhand....
Nu har ni något att bita i :X
------------------
Är man medlem på WF så behöver man inga vänner !