|
| |
|
|
djmt
Posts: 2
Joined: 5/18/2004
Status: offline
 |
Help me out. Redirection asp, mdb - 5/18/2004 5:18:15
Hi, who can help me.
I'm busy with an intership and i'm making an online enquete.
But my pr0blem is that if they are at question 16 they will be redirect to question 18 (not to question 17 ) (code of question 16 is good)
I know there is someting wrong in the code of question 17 !?But what!?
What is wrong with my code below.
I work with access 97
<%@LANGUAGE="VBSCRIPT"%>
<!--#include file="../../Connections/Enquetedb.asp" -->
<%
' *** Edit Operations: declare variables
MM_editAction = CStr(Request("URL"))
If (Request.QueryString <> "") Then
MM_editAction = MM_editAction & "?" & Request.QueryString
End If
' boolean to abort record edit
MM_abortEdit = false
' query string to execute
MM_editQuery = ""
%>
<%
' *** Insert Record: set variables
If (CStr(Request("MM_insert")) <> "") Then
MM_editConnection = MM_Enquetedb_STRING
MM_editTable = "aw17"
MM_editRedirectUrl = ""
MM_fieldsStr = "faq|value|nieuws|value|projecten|value|zoeken|value|smoelenboek|value|mededelingen|value|activiteiten|value|prikbord|value|eigenpag|value|organigrammen|value|handleiding|value|beschikbaarheid|value|plaatjes|value|verjaardagen|value|forum|value|infopag|value|webwinkel|value|relatiebeheer|value|anders|value|userid|value"
MM_columnsStr = "faq|none,'Y','N'|nieuws|none,'Y','N'|projecten|none,'Y','N'|zoeken|none,'Y','N'|smoelenboek|none,'Y','N'|mededelingen|none,'Y','N'|activiteiten|none,'Y','N'|prikbord|none,'Y','N'|eigenpag|none,'Y','N'|organigrammen|none,'Y','N'|handleiding|none,'Y','N'|beschikbaarheid|none,'Y','N'|plaatjes|none,'Y','N'|verjaardagen|none,'Y','N'|forum|none,'Y','N'|infopag|none,'Y','N'|webwinkel|none,'Y','N'|relatiebeheer|none,'Y','N'|anders|none,'Y','N'|userid|',none,''"
' create the MM_fields and MM_columns arrays
MM_fields = Split(MM_fieldsStr, "|")
MM_columns = Split(MM_columnsStr, "|")
' set the form values
For i = LBound(MM_fields) To UBound(MM_fields) Step 2
MM_fields(i+1) = CStr(Request.Form(MM_fields(i)))
Next
' append the query string to the redirect URL
If (MM_editRedirectUrl <> "" And Request.QueryString <> "") Then
If (InStr(1, MM_editRedirectUrl, "?", vbTextCompare) = 0 And Request.QueryString <> "") Then
MM_editRedirectUrl = MM_editRedirectUrl & "?" & Request.QueryString
Else
MM_editRedirectUrl = MM_editRedirectUrl & "&" & Request.QueryString
End If
End If
End If
%>
<%
' *** Insert Record: construct a sql insert statement and execute it
If (CStr(Request("MM_insert")) <> "") Then
' create the sql insert statement
MM_tableValues = ""
MM_dbValues = ""
For i = LBound(MM_fields) To UBound(MM_fields) Step 2
FormVal = MM_fields(i+1)
MM_typeArray = Split(MM_columns(i+1),",")
Delim = MM_typeArray(0)
If (Delim = "none") Then Delim = ""
AltVal = MM_typeArray(1)
If (AltVal = "none") Then AltVal = ""
EmptyVal = MM_typeArray(2)
If (EmptyVal = "none") Then EmptyVal = ""
If (FormVal = "") Then
FormVal = EmptyVal
Else
If (AltVal <> "") Then
FormVal = AltVal
ElseIf (Delim = "'") Then ' escape quotes
FormVal = "'" & Replace(FormVal,"'","''") & "'"
Else
FormVal = Delim + FormVal + Delim
End If
End If
If (i <> LBound(MM_fields)) Then
MM_tableValues = MM_tableValues & ","
MM_dbValues = MM_dbValues & ","
End if
MM_tableValues = MM_tableValues & MM_columns(i)
MM_dbValues = MM_dbValues & FormVal
Next
MM_editQuery = "insert into " & MM_editTable & " (" & MM_tableValues & ") values (" & MM_dbValues & ")"
If (Not MM_abortEdit) Then
' execute the insert
Set MM_editCmd = Server.CreateObject("ADODB.Command")
MM_editCmd.ActiveConnection = MM_editConnection
MM_editCmd.CommandText = MM_editQuery
MM_editCmd.Execute
MM_editCmd.ActiveConnection.Close
If (MM_editRedirectUrl <> "") Then
Response.Redirect(MM_editRedirectUrl)
End If
End If
End If
%>
<% Session("anders") = Request("anders") %>
<% If Session("anders") = "checkbox" Then
Response.Redirect "vr40.asp"
Else
Response.Redirect "vr18.asp"
End if
%>
<%
set rsvr17 = Server.CreateObject("ADODB.Recordset")
rsvr17.ActiveConnection = MM_Enquetedb_STRING
rsvr17.Source = "SELECT vr17 FROM vr17"
rsvr17.CursorType = 0
rsvr17.CursorLocation = 2
rsvr17.LockType = 3
rsvr17.Open()
rsvr17_numRows = 0
%>
<html>
<head>
<title>Enquête ISS Nederland B.V. - Afdeling ICT</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<script language="JavaScript">
<!--
function MM_reloadPage(init) { //reloads the window if Nav4 resized
if (init==true) with (navigator) {if ((appName=="Netscape")&&(parseInt(appVersion)==4)) {
document.MM_pgW=innerWidth; document.MM_pgH=innerHeight; onresize=MM_reloadPage; }}
else if (innerWidth!=document.MM_pgW || innerHeight!=document.MM_pgH) location.reload();
}
MM_reloadPage(true);
// -->
</script>
</head>
<body bgcolor="#FFFFFF" text="#000000">
<div id="Layer1" style="position:absolute; width:975; height:500; z-index:1; background-image: url(../../images/Achtergrond.JPG); layer-background-image: url(../../images/Achtergrond.JPG); border: 1px none #000000">
<form ACTION="<%=MM_editAction%>" METHOD="POST" name="formvr17">
<table width="100%" border="0" cellspacing="5" cellpadding="5">
<tr>
<td width="90%">
<div align="right">
<h3 align="center"><b><font face="Verdana, Arial, Helvetica, sans-serif" color="#0066CC">Enquête
ISS Nederland B.V. - Afdeling ICT</font></b></h3>
</div>
</td>
<td rowspan="2" width="10%">
<div align="right"><img src="../../images/Logo.jpg" width="69" height="60"></div>
</td>
</tr>
<tr>
<td width="90%"> </td>
</tr>
</table>
<table width="100%" border="0" cellspacing="5" cellpadding="5">
<tr>
<td colspan="6">
<hr>
</td>
</tr>
<tr>
<td width="137"> </td>
<td bgcolor="#FFFFFF" colspan="4" align="center">
<div align="center"><font face="Verdana, Arial, Helvetica, sans-serif" size="2"><b><font color="#FFFFFF"><%=(rsvr17.Fields.Item("vr17").Value)%></font></b></font></div>
</td>
<td width="170"> </td>
</tr>
<tr>
<td width="137"> </td>
<td bgcolor="#336699" colspan="4" align="center">
<div align="center"><font face="Verdana, Arial, Helvetica, sans-serif" size="2"><b><font face="Verdana, Arial, Helvetica, sans-serif" size="2"><font color="#FFFFFF">Selecteer
hier uw antwoord:</font></font></b></font></div>
</td>
<td width="170"> </td>
</tr>
<tr>
<td width="137" rowspan="10"> </td>
<td width="24" bgcolor="#666666" align="center"><b><font face="Verdana, Arial, Helvetica, sans-serif" size="2">
<input type="checkbox" name="faq value="checkbox" />
</font></b></td>
<td width="236" bgcolor="#666666" align="center">
<div align="left"><b><font face="Verdana, Arial, Helvetica, sans-serif" size="2"><font color="#FFFFFF">FAQ</font></font></b></div>
</td>
<td bgcolor="#666666" align="center">
<div align="left">
<input type="checkbox" name="handleiding" value="checkbox" />
</div>
</td>
<td bgcolor="#666666" align="center">
<div align="left"><b><font face="Verdana, Arial, Helvetica, sans-serif" size="2"><font color="#FFFFFF">Handleidingen</font></font></b></div>
</td>
<td width="170" rowspan="10"> </td>
</tr>
<tr>
<td width="24" bgcolor="#666666" align="center"><b><font face="Verdana, Arial, Helvetica, sans-serif" size="2">
<input type="checkbox" name="nieuws" value="checkbox" />
</font></b></td>
<td width="236" bgcolor="#666666" align="center">
<div align="left"><b><font face="Verdana, Arial, Helvetica, sans-serif" size="2"><font color="#FFFFFF">Nieuws</font></font></b></div>
</td>
<td width="31" bgcolor="#666666" align="center">
<div align="left">
<input type="checkbox" name="beschikbaarheid" value="checkbox" />
</div>
</td>
<td width="282" bgcolor="#666666" align="center">
<div align="left"><b><font face="Verdana, Arial, Helvetica, sans-serif" size="2"><font color="#FFFFFF">Beschikbaarheidsbeheer</font></font></b></div>
</td>
</tr>
<tr>
<td width="24" bgcolor="#666666" align="center"><b><font face="Verdana, Arial, Helvetica, sans-serif" size="2">
<input type="checkbox" name="projecten" value="checkbox" />
</font></b></td>
<td width="236" bgcolor="#666666" align="center">
<div align="left"><b><font face="Verdana, Arial, Helvetica, sans-serif" size="2"><font color="#FFFFFF">Projecten</font></font></b></div>
</td>
<td width="31" bgcolor="#666666" align="center">
<div align="left">
<input type="checkbox" name="plaatjes" value="checkbox" />
</div>
</td>
<td width="282" bgcolor="#666666" align="center">
<div align="left"><b><font face="Verdana, Arial, Helvetica, sans-serif" size="2"><font color="#FFFFFF">Beeldbank
(plaatjes)</font></font></b></div>
</td>
</tr>
<tr>
<td width="24" bgcolor="#666666" align="center"><b><font face="Verdana, Arial, Helvetica, sans-serif" size="2">
<input type="checkbox" name="zoeken" value="checkbox" />
</font></b></td>
<td width="236" bgcolor="#666666" align="center">
<div align="left"><b><font face="Verdana, Arial, Helvetica, sans-serif" size="2"><font color="#FFFFFF">Zoeken</font></font></b></div>
</td>
<td width="31" bgcolor="#666666" align="center">
<div align="left">
<input type="checkbox" name="verjaardagen" value="checkbox" />
</div>
</td>
<td width="282" bgcolor="#666666" align="center">
<div align="left"><b><font face="Verdana, Arial, Helvetica, sans-serif" size="2"><font color="#FFFFFF">Verjaardagen</font></font></b></div>
</td>
</tr>
<tr>
<td width="24" bgcolor="#666666" align="center"><b><font face="Verdana, Arial, Helvetica, sans-serif" size="2">
<input type="checkbox" name="smoelenboek" value="checkbox" />
</font></b></td>
<td width="236" bgcolor="#666666" align="center">
<div align="left"><b><font face="Verdana, Arial, Helvetica, sans-serif" size="2"><font color="#FFFFFF">Smoelenboek</font></font></b></div>
</td>
<td width="31" bgcolor="#666666" align="center">
<div align="left">
<input type="checkbox" name="forum" value="checkbox" />
</div>
</td>
<td width="282" bgcolor="#666666" align="center">
<div align="left"><b><font face="Verdana, Arial, Helvetica, sans-serif" size="2"><font color="#FFFFFF">Nieuwsgroep
(forum)</font></font></b></div>
</td>
</tr>
<tr>
<td width="24" bgcolor="#666666" align="center">
<input type="checkbox" name="mededelingen" value="checkbox" />
</td>
<td width="236" bgcolor="#666666" align="center">
<div align="left"><b><font face="Verdana, Arial, Helvetica, sans-serif" size="2"><font color="#FFFFFF">Mededelingen</font></font></b></div>
</td>
<td width="31" bgcolor="#666666" align="center">
<div align="left">
<input type="checkbox" name="infopag" value="checkbox" />
</div>
</td>
<td width="282" bgcolor="#666666" align="center">
<div align="left"><b><font face="Verdana, Arial, Helvetica, sans-serif" size="2"><font color="#FFFFFF">Informatieve
pagina</font></font></b></div>
</td>
</tr>
<tr>
<td width="24" bgcolor="#666666" align="center">
<input type="checkbox" name="activiteiten" value="checkbox" />
</td>
<td width="236" bgcolor="#666666" align="center">
<div align="left"><b><font face="Verdana, Arial, Helvetica, sans-serif" size="2"><font color="#FFFFFF">Activiteitenkalender</font></font></b></div>
</td>
<td width="31" bgcolor="#666666" align="center">
<div align="left">
<input type="checkbox" name="formulieren" value="checkbox" />
</div>
</td>
<td width="282" bgcolor="#666666" align="center">
<div align="left"><b><font face="Verdana, Arial, Helvetica, sans-serif" size="2"><font color="#FFFFFF">Formulieren</font></font></b></div>
</td>
</tr>
<tr>
<td width="24" bgcolor="#666666" align="center">
<input type="checkbox" name="prikbord" value="checkbox" />
</td>
<td width="236" bgcolor="#666666" align="center">
<div align="left"><b><font face="Verdana, Arial, Helvetica, sans-serif" size="2"><font color="#FFFFFF">Prikbord</font></font></b></div>
</td>
<td width="31" bgcolor="#666666" align="center">
<div align="left">
<input type="checkbox" name="webwinkel" value="checkbox" />
</div>
</td>
<td width="282" bgcolor="#666666" align="center">
<div align="left"><b><font face="Verdana, Arial, Helvetica, sans-serif" size="2"><font color="#FFFFFF">Inkoop
/verkoop (soort webwinkel voor medewerkers)</font></font></b></div>
</td>
</tr>
<tr>
<td width="24" bgcolor="#666666" align="center">
<input type="checkbox" name="eigenpag" value="checkbox" />
</td>
<td width="236" bgcolor="#666666" align="center">
<div align="left"><b><font face="Verdana, Arial, Helvetica, sans-serif" size="2"><font color="#FFFFFF">Eigen
pagina indeling</font></font></b></div>
</td>
<td width="31" bgcolor="#666666" align="center">
<div align="left">
<input type="checkbox" name="relatiebeheer" value="checkbox" />
</div>
</td>
<td width="282" bgcolor="#666666" align="center">
<div align="left"><b><font face="Verdana, Arial, Helvetica, sans-serif" size="2"><font color="#FFFFFF">Relatiebeheer</font></font></b></div>
</td>
</tr>
<tr>
<td width="24" bgcolor="#666666" align="center">
<input type="checkbox" name="organigrammen" value="checkbox" />
</td>
<td width="236" bgcolor="#666666" align="center">
<div align="left"><b><font face="Verdana, Arial, Helvetica, sans-serif" size="2"><font color="#FFFFFF">Organigrammen</font></font></b></div>
</td>
<td width="31" bgcolor="#666666" align="center">
<div align="left">
<input type="checkbox" name="anders" value="checkbox" />
</div>
</td>
<td width="282" bgcolor="#666666" align="center">
<div align="left"><b><font face="Verdana, Arial, Helvetica, sans-serif" size="2"><font color="#FFFFFF">Anders,
namelijk:</font></font></b></div>
</td>
</tr>
<tr>
<td width="137"> </td>
<td colspan="4" align="center" bgcolor="#999999">
<div align="right">
<input type="hidden" name="userid" value="<%= Session("userid") %>">
<input type="submit" name="Volgende" value="Volgende">
</div>
</td>
<td width="170"> </td>
</tr>
<tr>
<td colspan="6"> </td>
</tr>
<tr>
<td colspan="6">
<hr>
</td>
</tr>
<tr>
<td colspan="6">
<div align="center"><font face="Verdana, Arial, Helvetica, sans-serif" size="1">(C)
Copyright ISS Nederland B.V. 2003</font> </div>
</td>
</tr>
</table>
<input type="hidden" name="MM_insert" value="true">
</form>
</div>
<p> </p>
<p> </p>
</body>
</html>
<%
rsvr17.Close()
%>
|
|
 New Messages |
 No New Messages |
 Hot Topic w/ New Messages |
 Hot Topic w/o New Messages |
 Locked w/ New Messages |
 Locked w/o New Messages |
|
Post New Thread
Reply to Message
Post New Poll
Submit Vote
Delete My Own Post
Delete My Own Thread
Rate Posts
|
|
|
Printable Version 
