Nyt vindue i asp
Hvordan kan jeg selv bestemme str. osv her i dette vindue som bliver åbnet her, det er links fra et kort som jeg ikke kan ændre i, det eneste sted er her.*************************************************************************
Set objConn = Server.CreateObject(\"ADODB.Connection\")
objConn.Open strConnection
Set objRS = Server.CreateObject(\"ADODB.Recordset\")
Set objRS.ActiveConnection = objConn
strQ = \"select * from \"&strTable&\" where MSLINK=\"&strMslink&\";\"
if strEnt=701 then
strQ = \"select kommune.kommunenavn,vej.vejnavn,adresse.* from adresse,kommune,vej where adresse.MSLINK=\"&strMslink&\" and vej.kommunenr=adresse.kommunenr and vej.vejkode=adresse.vejkode and kommune.kommunenr=adresse.kommunenr;\"
end if
objRS.Open strQ
While Not objRS.EOF
Select Case strEnt
Case \"701\" \' Adresse
%><!-- #include file = \"E701adresse.asp\" --><%
Case \"1504\"
%><!-- #include file = \"E1504ladelstr.asp\" --><%
Case \"1507\"
%><!-- #include file = \"E1507skab.asp\" --><%
Case \"1509\"
%><!-- #include file = \"E1509stat10.asp\" --><%
Case \"1510\"
%><!-- #include file = \"E1510stat50.asp\" --><%
Case else
%>
<HTML>
<HEAD>
<TITLE>El DB</TITLE>
</HEAD>
<BODY BGCOLOR=\"#C0C0C0\" topmargin=\"10\" leftmargin=\"2\">
<TABLE align=center width=80% border=\"0\" cellspacing=\"2\" cellpadding=\"2\">
<TR>
<TD align=\"left\"><IMG SRC=\"images/logostor.gif\" width=\"180\"></TD>
<TD><H1><B>CORI-el web <%=strTable%></B></H1></TD>
</TR>
<%
for each fldF in objRS.Fields
Response.Write \" <TR>\"&chr(13)&chr(10)
Response.Write \" <TD align=right>\"&fldF.Name&\" :</TD>\"&chr(13)&chr(10)
Response.Write \" <TD><INPUT TYPE=\"\"text\"\" NAME=\"\"\"&fldF.Name&\"\"\" size=40 VALUE=\"\"\"&fldF.Value&\"\"\"</TD>\"&chr(13)&chr(10)
Response.Write \" </TR>\"&chr(13)&chr(10)
next
%>
</TABLE>
<BR>
</BODY>
</HTML>
<%
End Select
objRS.MoveNext
Wend
objRS.close
objConn.close
Set objRS = Nothing
Set objConn = Nothing
end if
Response.Flush
Response.End
%>
