<%@ LANGUAGE="VBSCRIPT"%>
<%
Dim RegistreringDBVedligeholdState(2)
Dim RegistreringDBBudgetState(2)
Dim RegistreringDBEnergiState(2)
Dim RegistreringDBOrdrestyringState(2)
Dim RegistreringGrafiskDBState(2)
Dim CadState(2)
Dim VisualState(2)
Dim StateForm(2)
StateForm(0) = "Ønskes ikke"
StateForm(1) = "Ønskes"
Dim StateImage(2)
StateImage(0) = "unchecked"
StateImage(1) = "checked"
If Request.Querystring("PreSelect") = "RegistreringDBVedligehold" Then
RegistreringDBVedligeholdState(0) = StateForm(1)
RegistreringDBVedligeholdState(1) = StateImage(1)
Else
RegistreringDBVedligeholdState(0) = StateForm(0)
RegistreringDBVedligeholdState(1) = StateImage(0)
End If
If Request.Querystring("PreSelect") = "RegistreringDBBudget" Then
RegistreringDBBudgetState(0) = StateForm(1)
RegistreringDBBudgetState(1) = StateImage(1)
Else
RegistreringDBBudgetState(0) = StateForm(0)
RegistreringDBBudgetState(1) = StateImage(0)
End If
If Request.Querystring("PreSelect") = "RegistreringDBEnergi" Then
RegistreringDBEnergiState(0) = StateForm(1)
RegistreringDBEnergiState(1) = StateImage(1)
Else
RegistreringDBEnergiState(0) = StateForm(0)
RegistreringDBEnergiState(1) = StateImage(0)
End If
If Request.Querystring("PreSelect") = "RegistreringDBOrdrestyring" Then
RegistreringDBOrdrestyringState(0) = StateForm(1)
RegistreringDBOrdrestyringState(1) = StateImage(1)
Else
RegistreringDBOrdrestyringState(0) = StateForm(0)
RegistreringDBOrdrestyringState(1) = StateImage(0)
End If
If Request.Querystring("PreSelect") = "RegistreringGrafiskDB" Then
RegistreringGrafiskDBState(0) = StateForm(1)
RegistreringGrafiskDBState(1) = StateImage(1)
Else
RegistreringGrafiskDBState(0) = StateForm(0)
RegistreringGrafiskDBState(1) = StateImage(0)
End If
If Request.Querystring("PreSelect") = "CAD" Then
CADState(0) = StateForm(1)
CADState(1) = StateImage(1)
Else
CADState(0) = StateForm(0)
CADState(1) = StateImage(0)
End If
If Request.Querystring("PreSelect") = "Visual" Then
VisualState(0) = StateForm(1)
VisualState(1) = StateImage(1)
Else
VisualState(0) = StateForm(0)
VisualState(1) = StateImage(0)
End If
%>
