Jeg er ved at lave et målskema. Jeg kan fint få scriptet til at trække ud, så scriptet viser målinger for den enkelte bruger. Hvordan får jeg scriptet til at trække målingerne fra hinanden, således brugeren kan se hvor mange cm han/hun har tabt.?
<%
' Databaseforbindelse - husk at angive sti til din database
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath ("users.mdb")
Conn.Open DSN
' Hent fra databasen afhængig af værdien id fra URL
strSQL = "Select * From mal Where ID = " & Request.Querystring("ID")
Set rs = Conn.Execute(strSQL)
' Skriv personens data
Response.Write "<table style='width: 46%' cellpadding='1' cellspacing='0'>"
Response.Write "<tr>"
Response.Write "<td width='99'><strong>Dato</strong></td>"
Response.Write "<td align='right' width='74'><strong>Bryst</strong></td>"
Response.Write "<td align='right' width='73'><strong>Talje</strong></td>"
Response.Write "<td align='right' width='59'><strong>Hofte</strong></td>"
Response.Write "<td align='right' width='67'><strong>Overarm</strong></td>"
Response.Write "<td align='right' width='72'><strong>Lår</strong></td>"
Response.Write "</tr>"
Response.Write "<tr>"
Response.Write "<td width='99'></td>"
Response.Write "</tr>"
Response.Write "<tr>"
Response.Write "<td width='99'>" & rs("dato")& "</td>"
Response.Write "<td align='right' width='74'>" & rs("bryst")& " cm </td>"
Response.Write "<td align='right' width='73'>" & rs("talje")& " cm </td>"
Response.Write "<td align='right' width='59'>" & rs("hofte")& " cm </td>"
Response.Write "<td align='right' width='67'>" & rs("overarm")& " cm </td>"
Response.Write "<td align='right' width='72'>" & rs("laar")& " cm </td>"
Response.Write "</tr>"
Response.Write "<tr>"
Response.Write "<td width='99'></td>"
Response.Write "</tr>"
Response.Write "<tr style='background-color:#EFEFEF;'>"
Response.Write "<td width='99'><b>Tab / Forskel</b></td>"
Response.Write "<td align='right' width='74'>" & rs("bryst")& " cm </td>"
Response.Write "<td align='right' width='73'>" & rs("bryst")& " cm </td>"
Response.Write "<td align='right' width='59'>" & rs("bryst")& " cm </td>"
Response.Write "<td align='right' width='67'>" & rs("bryst")& " cm </td>"
Response.Write "<td align='right' width='72'>" & rs("bryst")& " cm </td>"
Response.Write "<td align='right'></td>"
Response.Write "</tr>"
Response.Write "<tr>"
Response.Write "<td width='99'></td>"
Response.Write "</tr>"
Response.Write "</table>"
Conn.Close
Set Conn = Nothing
%>